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EDITORIAL 



Uma cdicao tccnica. Estc c o torn desta edicao especial de MSX 
Micro. Um numero que procura ofcrcccr aos leitorcs e 
ariccionados pelo padrao, algo um pouco difcrentc das cdicoes 
normais de nossa revista: uma revista voltada para desvendar 
aspectos e duvidas que surgem no dia a dia de um usuario MSX, 
alem de oferccer maior espaco para a publicacao de um numero 
maior de programas bem como abrir novos horizontes de 
programacao, com o inicio de dois novos cursos, um de Pascal 
e um de dBase II, para aqueles leitores que nao satisfazcm cm 
apenas operar bem o seu micro. 

Mas, esta edicao nao fica por ai. MSX Micro tambem abre um 
outro espaco para a comunicacao e troca de ideias entre os 
leitorcs, com a ampliacao da secao de cartas que passara de uma 
para duas paginas, nas cdicoes especiais. 

Em resumo, esta c a proposta da MSX Micro especial. Uma 
ideia que pretendemos aperfeicoar, cada vez mais, ao Iongo de 
87 com a publicacao de outras edicoes do mesmo tipo, voltadas 
para aprofundar aspectos tccnicos que muitas vezes nao temos 
o espaco fisico necessario para que isso scja fcito nas cdicoes 
normais. Ate a proxima. 
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Paulo Roberto Pinheiro Elias 



Urn dos recursos 
intcrcsantes dos micros 
MSX reside na 
possibilidade de se usar o 
seu gerador de som 
programavel (PSG — 
Programmable Sound 
Generator) para se obter 
miisica e rufdos ao criterio 
e gosto do usuario. 

Atraves de um 
programa bastante simples 
e possivel construir um 
gerador de audio para tons 
fixos ou varredura de uma 
faixa dc frequencias, o 
que, entre outras coisas, 
significa poupar alguns 
milhares de cruzados na 
compra dc um aparelho 
especificamcnte para este 
fim, um dcscjo natural de 
grandc numero de 
hobbyistas e aficionados 
de eletrdnica e audio. 

Um do Gerador: 

A geracao de tons fixos e 
particularmente 
interessantc para diversas 
aplicagoes. Procuraremos 
demonstra-las, 
exemplificando como ela 
pode ser utilizada em 
alguns ajustcs de possivel 
interesse do usuario. 

a) — Ajuste do azimutc 
da cabeca 

gravadora/reprodutora dos 
gravadores cassette: 

Na maioria das vczes 
em que a leitura dc um 
programa gravado cm fita 
cassette nao conseguc ser 
feita dc modo algum pelo 
micro, o problema reside 



na discrepancia cntre o 
azimute da cabeca do 
gravador ondc foi feita a 
gravacao e a cabeca do 
gravador onde esta sendo 
feita a leitura. Infelizmcnte, 
os duplicadores de 
programas cm fitas cassette 
trabalham de forma 
artczanal e ncm semprc 
prezam pelo ajuste do 
azimute dc seus 
gravadores. Nestes casos e 
aconselhavcl trocar a fita 
no revendedor, em vez de 
teniar ajustar o seu 
gravador para azimute da 
fita, o qual pode cstar 
errado. Muito menos deve 
o usuario tentar ajustar "de 
ouvido" o azimutc, como 
muitas publicacoes 
oricntam, porque a 
imprecisao do processo e 
muito grande c so por 
mcro acaso o azimute 
ficara certo. A maneira 
corrcta de se ajustar e 
conseguida com o auxilio 
dc uma fita-padrao 
contendo um sinal gravado 
dc 10 000 Hz. Estas fitas 
sao caras e dc dificil 
obtencao. No cntanto, 
pode-se fabricar uma fita 



dc referenda caso csteja 
disponi'vel um tape-deck o 
qual se saiba de antemao 
cstar corretamente 
azimutado. para fazer isso, 
liga-se a saida de audio do 
micro a entrada de linha 
do tape-deck (ou a entrada 
auxiliar do amplificador ao 
qual o deck csteja 
conectado). Se o 
cquipamento for stereo, 
pode-se usar um concctor 
em Y (um terminal RCA 
numa ponta e dois na 
outra), e assim alimeniar o 
sinal mono do micro 
igualmcnte nos dois 
canais. Injeta-se, com o 
auxilio do programa, um 
sinal de 10 000 Hz. Deve- 
se usar a melhor fita 



cassette possivel, ja que 
tanto a fita com o shell da 
cassette tern influencia 
sobrc o azimute. O ajuste 
do nivel da gavacao nao 
deve ultrapassar — 10 dB 
na leitura do VU, 
principalmente se for 
usada fita tipo I (ferrica). 
Antes de gravar, e 
altamente recomendavel 
limpar e desmagncti/ar as 
cabecas e guias de fita 
(rolete de borracha e 
capstam). A limpesa pode 
ser feita com alcool 
isopropilico dc alto grau 
de pureza, com o auxilio 
de um cotoncte, passando- 
o cuidadosamente nas 
partes mencionadas. E 
interessantc passar tiunbcm 
o cotoncte cmbebido no 
alcool durante a 
desmagnctizaeao, para 
lacililar a retirada de oxido 
das paries mais delicadas 
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das cabecas. Depois de 
limpas, scquc todas as 
partes com cotonetes 
novos. A limpesa rotineira 
dos tape-decks evita muitas 
dores de cabeca, porquc 
as fitas terricas largani 
oxido a medida em que 
sao rodadas. 

Depois de gravar a fita, 
coloque-a para rcproduzir 
no gravador a scr ajustado. 
Conecia-se um multimetro 
na safda de monitor do 
gravador. Gira-se com 
cuidado (e sem fazer muila 
pressao) o pararuso que 
regnla o azimutc ate que a 
leitura no instrnmento seja 
maxima. Na falta de um 
multimetro, podc-se tentar 
fazer esta leitura atraves do 
VU do tape-deck onde foi 
feita a gravacao. Devido a 
baixa velocidade usada nos 
decks-cassette e a 
irregularidades nas fitas, e 
normal observar-.se uma 
variaciio de ni'vel (flutter) 
do torn gravado. Por causa 
disso. deve-se marcar o 
trccho da fita u.sado para o 
ajuste e repeti-lo ate que se 
tenha certeza da leitura 
correta no instrumento. 



Deve-se ter em mente 
que o ajuste do azimutc 
por este processo sera 
igual ao do deck onde foi 
feita a gravacao, 
dependendo deste ultimo 
a precisao do processo. 
Felizmente, a tolcrancia aos 
desvios de azimutc e 
razoavel quando o micro 
faz a leitura dos programas 
em fita cassette, porque OS 
sinais gravados Iimitam-se a 
frec[ iiencias medias-agudas, 
motivo pelo c|tial pode-se 
usar gravadores portateis 
para esta llnalidade, os 
c[iiais geralmente nao 
ultrapassam 6 KI Iz na 
rcsposta de freqiiencia. 

b) — Ajustes diversos 
com sinal de referenda de 
1000 Hz: 

Este sinal pode servir 
para multiplos usos, como 
por exempk), para ajustar 
O zero dR dos VI ,'s, para 
balancear a gravacao ou a 
rcproducao stereo, para 
marcar o ini'cio e fim de 
uma gravacao, etc. 

c) — Allnacao de 
instrumentos com 440 Hz: 



Esta freqiiencia 
correspondc ao la de 
afinacao dos instrumentos 
musicais, a partir da qual 
sao obtidos as afinaooes 
das outras notas. 

d) — Vcrificacao da 
resposta defreqiiencia de 
diversos componentes da 
cadeia de audio: 

Embora os tons puros 
nem sempre sejam 
adequados para este ajuste, 
porque certos 
componentes, como as 
caixas — acustfeas, 
integram com o ambiente. 
outros equipamentos 
podem ser checados 
c|tianto a este desempenho 
com o uso do gcrador, 
limitadas as suas 
caracteristicas, como 
veremos mais adiante. F.m 
geral, a faixa util de 
verificagao esta entre 30 
Hze 15 KHz, 
considerando-se esta a 
faixa audivcl para um 
grande niimcro de 
pessoas. 



Alem dos tons fixos, 
pode-sc usar o programa 
para varrcr faixas pre- 
estabclccidas de 
freqiiencias, e com isso 
obter uma rapida avaliacao 
global do desempenho do 
equipamento. 

Programa: 

No ini'cio (linhas 20 a 70), 
apareccra um menu para 
sclecao do item desejado. 
Em am bos os casos, o 
usuario e alcrtado para 
entrar com as frequencias 
em I lertz (Hz), e nao em 
sens multiplos, pois isto 
simplifica a entrada de 
dados. Na rotina de 
varredura (linhas 270 a 
442), devem ser 
fornecidos ao computador 

intcrvalo de varredura 
(de quantos em quantos 

1 lertz uma freciiiencia pula 
para outra) e o intervalo de 
troca entre duas 
frequencias. Usando-se 
estes dois dados com 
criteiro, pode-se obter 
diversos efcitos. Por 
exemplo. entrando com 
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COPY II PLUS 
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cm fita ou carlucho e adapla-se automatica- 
inente ;i qualquer maquina MSX do mcrca- 
do. 
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valorcs baixos na 
varrcdura c na troca (cstc 
podc ser ate zero !), 
obtcm-sc uma varrcdura 
mais uniforme, nao se 
pcrccbcndo tanto a troca 
dc uma frequencia para 
outra. Como o programa 
mostra qual a freqiiencia 
que esta sendo gerada 
num dado momento, 
tedando-se >STOP< 
pode-se interromper a 
varredura, fixando-se a 
geracao de uma frequencia 
desejada. 

Desempenho do Gerador: 

Foi conectada a saida de 
um Expert versao 1.1, um 
osciloscopio Hitachi 
modelo HV 422, de 40 
MHz, duplo traco, para a 
avaliacao qualitativa e 
quantitativa dos sinais 
gerados. C)bservou-se 



inicialmente uma 
quantidade aprcciavel dc 
ruido, modulado pclas 
senoides das diversas 
frequencias injetadas. 
Interrompcndo-sc a 
cxccucao do programa 
momentaneamente, 
constatou-se que o ruido 
continuava a ser detetado 
cm grande quantidade. 
lsto, junto com o perfil de 
contornOs limitados das 
senoides, evidenciou 
deficiencias provenientes 
do proprio sistema 
gerador, incluindo af a 
saida do micro. Desta 
forma, torna-se 
desaconselhavel o uso 
deste programa para a 
avaliacao do desempenho 
de equipamentos de audio, 
atraves de um 
osciloscopio, uma vez que 
os tempos de subida c 
descida das senoides 
aparentaram ser muito 
lentos. 



Por outro lado, a 
precisao na cmissao das 
frcqiidncias demonstrou 
ser o PSG altamente 
confiavel e mais eftcaz que 
um gerador convencional 
da escala para o ajuste de 
valores especificos de 
freqiiencia entre duas 
divisoes de escala, como 
exemplo, 508 Hz, 1002 Hz, 
etc. 

A variacao de amplitude 
na varredura foi de +1-3 
dB de 20 Hz a 20 KHz, 
tomando-se como 
referenda de dB o sinal 
de 1000 Hz do proprio 
gerador. Devido ao 
decrescimo de amplitude 
nas frequencias altas, 
aconsclha-sc usar um 
multimctro para monitorar 
a variaoio do volume, caso 
sc deseje, com o auxflio 
do micro, levantar a curva 
dc rcsposta de frequencia 
de um dado equipamento. 



E de capital 
importancia, para o 
correto funcionamento do 
gerador, entrar com os 
valores corretos nos 
registros R0 e Rl do PSG. 
Na tabela 1 apreceram 
divcrsos valorcs 
publicados sugeridos para 
440 Hz, onde o erro 
obtido fica evidenciado 
atraves de calculos tcoricos 
c leitura no osciloscopio 
(desviosem Hze %, 
respectivamente). 

Em resumo, o uso do 
programa "Gerador de 
audio " respeitados os 
iimites comenlados, pode 
ser de grande valia para 
uso a que se propoe e a 
sua rotina utilizada em 
outros programas afins, a 
critcrio do usuario. 



10 REM programa para 
gerar tons 

15 REM autor: Paulo R 
oberto P.Elias 

16 REM data: 25/10/86 

17 CLS : SCREEN0 , , : CO 
LOR1 , 7 

18 KEY OFF 

20 LOCATE 11, 5: PRINT 
"GERADOR DE AUDIO" 
30 LOCATE 5, 10 -.PRINT 
"Entre com a OPCAO:" 
40 LOCATE 2 ,13: PRINT 
"1 - Gerador de tons 

f ixos" 
50 LOCATE 2 ,16: PRINT 
"2 - Varredura de to 
ns" 

55 LOCATE 2, 19: PRINT 
"3 - FIM do programa 



60 A$=INKEY$:IF A$=" 

" THEN 60 

70 ON VAL(A$)GOTO80, 

270,450 

80 REM rotina para g 

erar tons fixos 

90 CLS: LOCATE 9 , 3 : PR 

INT"GERADOR DE TONS 

FIXOS" 

100 LOCATE0,8:PRINT" 

Qual a frequencia de 

sejada(em Hertz)":IN 

PUT F: PRINT 

110 LOCATE0, 13: PRINT 

"Qual a amplitude (vo 

lume) do sinal na sa 

ida(0-15) " : INPUT V 

120 K=3575611#/8192/ 

F 

130 R1=INT(K) 

140 R0=INT(. 5+256* (K 



-RD) 

150 SOUND 0,R0 
160 SOUND 1,R1 
170 SOUND 7,254 
180 SOUND 8,V 
190 CLS:LOCATE9,3:PR 
INT"GERADOR DE TONS 
FIXOS" 

200 LOCATE0, 13: PRINT 
"Frequencia=>" ; F 
210 LOCATE0, 23: PRINT 
"Para interromper pr 
essione <ESPACO>" 
220 I$=INKEY$ 
230 IF 1$="" THEN 22 


240 SOUND 8,0 
250 CLS:INPUT"Dese ja 
escolher outra freq 
u§ncia(s/n) " ;OF$ 
260 IF OFS="s" THEN 
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90 ELSE 17 

270 REM rotina para 

varredura de tons 

280 CLS: LOCATE 10,5: 

PRINT "VARREDURA DE T 

ONS" 

290 PRINT"Entre com 
a frequ§ncia final (e 
m Hz) ": INPUT FF 

291 PRINT"Especif iqu 
e o intervalo de var 
redura (em Hz) " : IN 
PUT IV 

292 IF FI>FF THEN IV 
= -IV 

300 PRINT"Especif iqu 
e o volume (0-15) ": IN 
PUT VV 

301 PRINT"Especif iqu 



e o tempo de trocad 

000-longo=> 50-curto 

) " : INPUT TT 

302 CLS 

310 FOR I=FI TO FF S 

TEP IV 

320 K=3575611#/8192/ 

I 

330 R1=INT(K) 

340 R0=INT(. 5+256* (K 

-RD) 

350 SOUND 0,R0 

360 SOUND 1,R1 

370 SOUND 7,254 

380 SOUND 8.VV 

390 PRINT"frequencia 

=>" ;I:PRINT:PRINT 
400 TIME-0 
410 IF TIME<TT THEN 



410 

420 NEXT I 

430 IF FI>FF THEN IF 
KFF THEN SOUND 8,0 

440 IF FKFF THEN IF 
I>FF THEN SOUND 8,0 

441 PRINT"Deseja faz 
er outra varredura (s 
/n)?": INPUT OV$ 

442 IF 0V$="s" THEN 
270 ELSE 17 

450 CLS: LOCATE 17,10 

: PRINT" FIM" 

460 FOR Y=l TO 500 :N 

EXT Y 

470 SCREEN0, ,1 : COLOR 

15,1.1: KEY ON 

480 END 
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REFERENCIAS VALORES 
PARA 440 
HZ 
RO Rl 


VALOR * 
CALCULADO (Hz) 


DESVIO RELATIVO 

CALC 
(Hz) OSC (%) 


1 27 1 

2 29 1 

3 254 


394.83 
392.06 
439.91 


45.17 

47.94 

-0.09 


-10" 

NFM 




• frcc|uenda = fc/32* (R0 + (256'Rl)) 

onde tc > frcquencia de clock = 3575611 (Expert) 
" ' valor constants era todas as freqiiencias varrida. 
NFM: nao foi medido. 

Icibela 1 — Valores dos registros R0 (ajuste fino) e Rl 
(ajuste grosseiro) para afrequencia de 440 Hz, 
sugeridos pela literatura. 



MSX 



MBWscrr 



A MELHOR SOFTHOUSE — MSX DA AMERICA LATINA 



MSX 



MONOPOLYCzS 150 00— FOOT VOLLEY CzS '00.00- -TIME CURB.. Q-$ 100.00— BASEBALL Czl60.00—EPISOD 4..Czt 150.00— BACKGAMMON '.OS 
BO 00—STARSHIP. Cz$ 80 00— SPITFIRE. Czt150.00—BSTOBMER..Cz$ 80.00— SPACE BUST.Czf 80,00— DAMBUSTERS Cz$ 150.00— ELIDON. CzS 
10000— HUMPREY.CzS lOo'oO—RCCKWBOLTCzt 150,00- R STATION. CzS 80,00- OILS WELL.CzS lOO.OOKUBUS.CzS 100.00— SPELUNKER CzS 100,00— NEW 
POKER CzSBOOO—NINJAII CzS 80 00— DRILLER TANKS.CzS 150.00-^ACK THE NIPPER CzS 100.00-SAMANTHA FOX POKERCzS 150.00— MAXIMA. CzS 
6000— 3D KNOCKOUTCzS 10000— BANK PANIC.CzS 80,00— ROLLERBALL CzS 80.00— GANG MAN. CzS 80.00— CONGO BONGOCzS 80,00— SWEET 
ACORN CzS8000—GUNFRIGHTCzSW.OO-SPARTAX..CzS80,00—KNIGHTMARECzS80.00—MASTERGEN^ 

80.00-ASTEr'aCTION CzS 80.00- MAC ME MAFIA CzS 70,00- CHILLER 'CzS 80.00— MAYHEN \CzS 80.00- -THUNDERBALL.CzS 90,00— JUMPING JACK CzS 
150,00— PUNCHY CzS 80.00 

NEWSOFT INFORM 'ATICA LTDA. 

RUA SENADOR DANTAS 117 SALA 736 — CENTRO 

PARA OUTROS ESTADOS. PEDIDO MlNIMO DE CzS 300.00 ATRAVES DE VALE POSTAL OU CHEQUE NOMINAL A NEWSOFT INFORMATION LTDA — 

CAIXA POSTAL 4583 CEP 20001 RIO DE JANEIRO — RJ 
OBS SOLICITE GRATUITAMENTE NOSSO CATALAGO ATUALIZADO CONTENDO TAMBEM NOSSA GRANDE LISTA DE APLICATIVOS E UTILITARIOS CPIM 

PARA SEU EXPERT OU HOTBIT. 



M MICROMAQ— 

Jk \ yA Sempre Novidades . -^ 

^pr| [ Agora as Fitas Micromaq a j^ \ 

r A r\f\Af\rr\ nnr 4 rsmr\f\iAr\n 



IMPRESSORA GRAFIX MTA - Ideal para a linha MSX. 80 colunas. 80 CPS, 
com recurso que permite a utilizacao de folhas sollas, envelopes, cart&es, etc. 
Versdes para o EXPERT 1 .0 ou para o EXPERT 1 . 1 /HOTBIT. Consulte-nos 

CABO DE IMPRESSORA MSX - para ligacao de seu MSX a qualquer impres- 
sora paralela padrSo CENTRONICS, kidique a marca da impressora e do mi- 
cro. Expert. Cz$ 750,00 HotbiL CzS 850,00 

SOFTWARE 
SIGA_ 

Acabou a duvida! Controle de esto- 

que, mala postal, contas a pagar ou 

receber, agenda... Agora voce tern 

todos estes programas em urn s6. O 

SIGA - Sistema de Gerenciamento 

de Arquivos - permite que voce crie 

seus proprios campos. Ate 8 campos. 

Ordena at6 3 campos simultaneamente. Permite pesquisa por item ou por 

chave. O mais completo banco de dados em fita para o MSX, no BRASIL. 

Em fita CzS 300,00 Em disco CzS 400,00 

CONTROLE DE DESPESAS 



Vocfi gerencia 20 contas com at6 60 lancamen- 
tos. Gera grafico de barras analisando suas des- 
pesas. Atualiza dados atraves de langamento de 
contas pagas. 
Em fita Cz$ 300,00 





CONTROLE BANCARIO 



O unico que al6m de emilir seu extrato ban- 
ca>io, cria o "famoso" extrato descomplicado 
onde voce lista somente cheques, ou depo- 
sitos, ou despesas... Suporta mais de 250 
lancamentos em tita ou mais de 2500 em dis- 
co. 
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Em fita Cz$ 400.00 



Em disco CzS 500,00 



EXTRATOS 

Excelente complemento do programa CONTROLE BANCARIO para quern nao 
tern impressora pois gera todos os extratos no video de seu micro. Somente 
para quern uMliza o programa CONTROLE BANCARIO. 

Agora inclufdo no CONTROLE BANCARIO 

COPYMAQ 

Copiador/duplicador de fitas. Copia qualquer fita com programas ate 1 40 Kb ou 
8 blocos gravados em padrao MSX. A partir de agora voce podera ter cdpias 
de seus programas em outras fitas. Quantas quizer! Em fita CzS 500,00 




Promove a varredura de programas contidos na mem(5ria (lidos de fita) permi- 
tindo atterapoes nos textos, endereoos, header, etc. Voce podera traduzir pro- 
gramas ou at6 mesmo personaliz5-los. Tambem funciona como excelente co- 
piador. Em fita CzS 500,00 

MALA POSTAL 

Urn super banco de dados. Total facilidade em apagar, alterar, buscar, orde- 
nar e insehr registros. 3 tipos de relat6rios diferentes, inclusive etiquetas. 1 30 
registros em fita ou 1400 em disco face simples. 
Em fita CzS 300,00 Em disco CzS 400,00 

FICHARIO ELETRONICO 

Possibilita a criacdo de fichas sobre qualquer assunto. 3 campos: Assunto, 
descricSo e codigo. Todas as facilidades necessarias a um bom gerencia- 
mento. Ideal para advogados e metlicos. 80 fichas em fita e 700 em disco sim- 
ples. Em fita 300,00 Em disco 400,00 



podem ser fornecidas 
em embalagem 
"SHOCK PROOF" 
Muito mais seguranga 
Vjjara seus programas . * 




JOGOS 



FITA: Cz$ 100,00 



DISCO: CzS 200,00 




3D KNOCK OUT - Luta de boxe 

ALIENS - Reslabeleca a vlda local 

ANIMAL - Um emoclonante desafio 

APRENDENDO A CONTAR - EDUCATIVO 

ASTEROIDE - Igual ao do Fliper 

BATTLE FOR MIDWAY - Guefra no Paclllco. Eslrategia 

BOEING 737 - Sim. de vdo. So em Ilia 

BOULDER DASH - Pegue os diamanles 

BOUSO - Tenle paraf o (rem 

BOXE - O Iraflicional 

CIRCUS CHARLIE - Igual ao do Fliper 

COLUMBIA - Incursao aeroa as bases Inlmlgas 

CORRIDA MALUCA - Perseguicao num labinnlo 

DECATHLON - Prova ollmplca 

EDDIE KID - Mostre sua perfcia na molo 

F-16 - Sim, de v6o com combale 

FISCAL DE ESTOOUE - Um desafio a sua Intellgencla 

GALAGA - Identico ao FANTASTIC do Fliper 

GHOSTBUSTER - Baseado no dime. So em llta 

GOONIES - Baseado no lilme 

GROG'S REVENGE - Aventura de BC 8ia 

GUN FRIGHT - Duelo no Oeste 

HERO - Aventura atraves de cavernas 

HIPER RALLY - Tipo ENDURO do ATARI 

HIPER SPORT I - 3 proves olfmpicas 

HIPER SPORT II - Outras 3 provas 

HIPER SPORT III - Oulras 4 provas 

HOLE IN ONE - Golle 

JET BOMBER - Combale aereo. Elellos de som 

JUMP JET - Sim. de vfto com combale 

KARATE MASTER - Anes marciais 

KID WIZ2 - Maravilhosa avenlura com GORPO 

KING'S VALLEY - Avenlura nas plramides 

KNIGHTMARE - Pesadelo de um Viking. Apenas "0 MELHOR" 

LAZY JONES - 1 8 logos do acflo em um 

LODE RUNNER II - Arcade Game. Excelente 

MACACO ACADEMICO-EDUCATIVO - Malemallca 

NIGHT SHADE - Liberie a cidade das pragas 

NINJA - Lute contra os guerreiros 

OUMPIADAS I - 4 provas olfmpicas 

OUMPIADAS II - Outras 4 provas 

PING PONG - O Iradlcional 

RAID ON BUNGELING BAY - Combate aereo 

RAMBO - Baseado no lilme 

RIVER RAID - Superior ao ATARI 

ROAD FIGHTER - Sensacional corrida. A melhor 

ROLLER BALL - Uma super mesa de Fliper. Sensacional 

SOCCER - Fulebol 

SPELUNKER - Desvendo os mislerios de uma mina 

SUPER CHESS - Xadrez 

TENIS - O Iradicional 

THE WRECK - Aventura em 3d 

TIME PLOT - Combale aereo 

ULTRA CHESS - Xadrez 

YIE AR KUNG FU I - Desallo nas arles marciais 

YIE AR KUNG FU II - Mais dosalios 

ZAXXON - Combate Aereg. Bastante divulgado 

ZOOM 909 - Balalha espacial em 30 

FLIGHT DECK - Sim. de VOo com combate. S6 em disco. CzS 200,00 

NORTH SEA HELICOPTER - Sim. de Voo. Fita CzS 120,00 e Disco CzS 220,00 

APLICATIVOS E UTILITARIOS 

MUE - Editor musical. CzS 1 50,00 

GEN - Editor Assembler. CzS 150,00 

GRAFICOS BIDIMENSIONAIS - Estudo de funcoes. Cz$ 200,00 

MON - Disassembler. CzS 150,00 

MSX WRITER - Processador de textos. CzS 200,00 

PASCAL - Compilador. CzS 150,00 

SIMPLE - Editor Assembler e Disassembler. CzS 250,00 

TASWORD - Processador de textos. Cz$ 150,00 

Obs.: Os aplicativos e utilitanos acima, na versSo disco, 

deverSo sofrer um acrescimo de Cz$ 1 00,00 

' Se optar pela embalagem "SHOCK PROOF", 
acresca CzS 20,00 por unidade. 




Remeta-nos CHEQUE NOMINAL E CRUZADO ou VALE POSTAL pagavel na AG. CENTRAL - COD. 52.0004 para: 
ComeVcio de Aparelhos Eletronicos MICROMAQ - Rua Sete de Setembro, 92 Loja 1 06 - Tel.: 222.6088 - Rio de Janeiro - RJ - CEP 20050 




CARTAS 



CURSO DE BASIC 

Mcu nome e Lerner, possuo 
um MSX da Gradientc e gos- 
taria Ue me corresponder 
com outfOS usuarios do sis- 
tema j;i que a cidadc em que 
moro nao oferece muiti > pa- 
ra a area de c< imputaca< >, ain- 
da mais para o sistcma MSX, 
por isso peco que publi- 
quem o mcu endereco para 
que conheca pessoas que 
pOSSuam MSX e possam tro- 
car informacoes. Eu queria 
agradecer a esta editora por 
nos dar a oportunidade de 
conhecer melhor o sistema 
c, quanto ao curso de basic, 
discordo do nosso amigo 
Abel de Souza que diz na 
MSX Micro n? 5 que "quern 
ternum micro ja teni nocao 
de basic que se aprende com 
a vivencia c a lcitura de pu- 
blicacoes da area". Essa revis- 
ta foi urn passo muito gran- 
de para os usuarios MSX. 
Lener Adriano Tofano 
Alvares Machado — SP 

Aqui vai o endereco pa- 
ra todos os usuarios interes- 
sados em trocar correspon- 
dencia com o lener: lener 
Adriano Tofano — Av. das 
Americas, 380 — Alvares 
Machado — SP — CEP 
19160 



PROGRAMAS 
EM DISCO 

Sirvo-me desta para, em pri- 
meiro lugar, parabeniza-los 
pelas preciosas informacoes 
que sao veiculadas ncsta ca- 
cla vez mais procurada rev is 
ta. Em segundo lugar, gosta- 
ria de fazer algumas eoloca- 
cocs e apresentar algumas 
sugestocs: 

Devido ao vertiginoso 
crcscimento do numero tie 
usuarios da linha MSX, acre- 
dito estar na hora de termos 
esta revista publicada men- 
salmente, ao inves de bimes- 
tralmente como e ate agora. 
Sou proprietario de um 
a unputador Expert e, como 
nao poderia deixar de ser. as- 
sinante de MSX Micro. Tc- 
nho observado os pogramas 
publicados e constatado que 
sao rcalmentc muito bons. 
Dentrc estes, destaco um 
que foi bastante titil chama- 
do Banco de Dados, que e 
um arquivo sequential des- 
tinado ao armazenamento 
de dados em fitacassctc. Co- 
mo, porem sou possuJdor de 
um drive da Microsol, ja 
consigo salvar meus progra- 
mas em disco e, como eu, 
iniimeros usuarios. Sugiro, 
entao, que a revista publiquc 
para serem usados cm disco 

Exidio Dias dos Santos Cor- 

reia 

Salvador — Ba 



gesldo que esta sendo ana- 
lisada com muito cuidado 
pela editora, para que MSX 
Micro possa sair procuran- 
do ojerecer sempre um me- 
lhor nivel de qualidade pa- 
ra sens leilores. De qiutlqucr 
maneira. ohrigado pelos 
elogios. 

GRAFIX MTA 

Venho por meio desta para- 
beniza-los pelo exedente tra- 
balho que esta revista vein fa- 
zendo a respeito da linha 
MSX. Eu tenho micro Hot- 
Bit da Sharp e, gostaria de sa- 
ber preco da Grafix MTA c 
tambcm saber o endercc :< i 
de alguma firma que venda 
o jogo Hyper Sports III e ain- 
da trocar correspondencia 
com outros usuarios da linha 
MSX. 

Rogerio Bringel 
Brasilia - DF 

Rogerio. o preco medio da 
Grafix MTA esta girando 
em tonio dos CzS 10, (XX), (X) 
e quanto ao jogo que voce 
esta procurando, infeliz- 
mente, nao temos nenhuma 
informacdo a respeito. Aqui 
esta o enderco do Rogerio, 
para quern estirer interessa- 
do- Rogerio Bringel — SQS 
308 bl li/apt." 301 —Brasi- 
lia — DF 



INTERCAMBIO 

Venho parabeniza-los pela 
publicacao desta exedente 
revista c pedir que seja divul- 
gado mcu endereco para 
que possa mantcr corres- 
pondence com outros usua- 
rios do padrao. 
Silvia Spiczak 
Canoas — its 

Aqui vai endereco da 
Silvia: Silvia Spiczak — Rita 
Boa Saiide. 3/6 — Canoas 
— RS — CEP 92200 



GRAVADOR 

Gostaria de saber se ha algu- 
ma diferenca entre a vcrsao 
1.0 e a l-A do Expert e eu te- 
nho um gravador Philips 
sem ajuste tie tonalidade e 
gostaria tambem de saber se 
laz alguma diferenca a nao 
existencia do ajuste. Por ulti- 
mo, se nao tern nenhum jei- 
to de parar a execucao dc 
programas em cartucho. 
Luis Paulo Van Veen 
Sao Jose dos Campos — SP 

Luis Paulo, em primeiro lu- 
gar. a diferenca entre as 
dims versos do Expert da 
Cradiente e que a ultima 
possui uma Eprom diferenle 
e algumas que mudaram de 
posicdo para que os dois 
MSX queexistem no merca- 
dofossem totalmente com- 
pativeis defato. Quanto ao 
ajuste de torn, nao fax ne- 



l-'.xido, quanto a sua suges- 
tdo de programas para dis- 
co, elajd esta sendo coloca 
da em prdtica. Agora, 
quanto a passar a revista 
para mensal, esta uma su- 



it MSX Micro 



nhuma diferenca o fata do 
seu gnu adi ir ndi i /« issui-lo, 
jd que de maneira genii, os 
grciradoivs sent ajuste vein 
afustados internamente no 
mdximo, E, finalmente, 
quanta so cartucbo o unico 
jeito dv parar a execucdo e 
desligar o micro ou entao 
apertar o botdo de reset do 
equipamento. 

Clube 

Enviamos esta carta com o 
obfetivo dc comunicar a 
fundacao dc tun novo clube 
dc computacao, o clube Bra- 
Sileiro dc MSX. Gostariamos 
de saber como obter maio- 



tes informacoes dc como di- 
vulga-lo na sua revista, 
Paulo Roberto Dalian — pre- 
sidente 
Santos — SP 

l-'icamos contentes em saber 
que esta surgindo mats clu- 
be dedicado aos usudrios 
iId padrdo MSX. Para que 
voce possa divulgd-lo, bas- 
la que en vie para iiossa re- 
dcicdo material detalbado a 
respeito do clube como por 
exernplo: bistorico do clube. 
o que oferece, quais as taxas 
que existent, name dos dire- 
lores e tele/brie para conla- 
to. 



ENGENHARIA 

Adquiri Expert da Gradicnte 
ha cerca de urn ano com a fi- 
nalidade de ser auxiliado em 
metis scrvicos com Enge- 
nharia Civil. Gostaria de ser 
informado se existe algum 
programa na area e como 
adquiri-Io. Gostaria de saber 
tambem se a maquina de es 
crever marca Olivetti mode- 
lo Praxis 20 pode ser utiliza- 
da como imprcssora. 
Juarez Garcia de Souza 
Scrtant'jpolis — PR 

Juarez, a soflhouse paulista 
lingesoft possui alguus apli- 
catii -osjd disponfl 'eis para 
a final idade que voce tern 



em mente. Para adquirir es- 
tes programas, Ixtstaentrar 
em contato com a Rngesofl 
atraves do tele/one (OU) 
549-9788 ou escrever para 
a caixa postal 42055 — Sao 
Paulo — SP 

Quanta a sua Olivetti, 
ela pode ser u/ilizada como 
im/iressora desde que voce 
adquira a interface para es- 
te objetivo, que e a Interfax 
20, fabricada pela Bytex 
Eletronica e que pode ser 
encontrada ncis lojas espe- 
cializadas com um preco 
entre CzS 2. 700,00 e CzS 
3500,00. 



MSX 



Diskette para MSX Cibertron. 

De concepgao avangada, com modernas tecnicas de programacao e manuais 

totalmente em portugues, e o mais rapido no carregamento do programa. Em al- 

gunssegundosvocetemoperacaocompleta,comeficienciaemuitafacilidade. 

Diskette para MSX Cibertron. N§o deixe de ver e rever este programa 
Veja a seguir os aplicativos profissionais, domesticos e de entretenimento em 
diskette para MSX Cibertron. Sao varios titulos de grande utilidade para vo- 
ce. No trabalho, em casa e no lazer. 



ASSEMBLY* 
DESASSEMBLY 

Assembly-Totalmente relo- 
cSvel, editor incluso, ma- 
cros, assemblagem condi- 
cional, extrema rapidez de 
compilacSo. Desassembly- 
Execucao passo a passo, 
miiltiplos pontos de inter- 
rupsao, c6pia inteligente. 



CONTROLE DE ESTOQUE 

Permite processar de ma- 
neira ef iciente uma quanti- 
dade Indeterminada de re- 
gistros, limitados apenas 
pelacapacidade do disket- 
te. Inclui cbdigo e nome do 
produto, fornecedor, unida- 
de, quantidade, quantidade 
minima, preco de compra, 
preco de venda e data de 
validade. 



MSX-WORD 

Processador de textos. 
Ideal tanto para uso domes- 
tico quanto profissional. 
Permite o armazenamento 
de ate 480 linhas. 
Inclui busca de palavras, 
movimentacao de blocos, 
reformulacao de paragra- 
fos, brocagem,definicaode 
margens, duas paginas de 
auxilioaousuarioetc. 



Games. Em cada diskette Cibertron tres jogos emocionantes, com alta resolu?ao grafi- 
ca a cores e som fantastico. 



• PITFALL II 

• THEZEUS 

• GALAGA 



• GOONIES 

• ALPHA SQUADRON 

• EXERION 



• NORTH SEA HELICOPTER 

• KNIGHT MARE 

• ANIMAL WAR 



EM ALGUNS 

SEGUNDOS, 

MAIS UM 

CAMPEAO 

DA 

TECN0L0GIA. 

DBEHTRDn 

SOFTWARE 



Caso voce nao encontre o programa dese- 
jado, escreva para: 

Cibertron Eletronica Ltda. • Caixa Postal 
1 7.005 - CEP 02399 - Sao Paulo • SP 
Revendedores autorizados: AKOPOL, AU- 
DIO. BRENO ROSSI, BRUNO BLOIS.GUE- 
DES, MAGNODATA (Tel : (011) 255-7653), 
MAPPIN, SHOP AUDIO & VIDEO (Sto. An- 
dre).CIN0TICA,AMAROSOM,L0GICA(Fqr- 
laleza), B. KAUFFMANN (Santos), MEMO- 
RIASOMEVIDEO(DF) 



PROGRAMAS 



EDITOR 
DE JANELAS 



Randolpho Juliao 

Os programas User Friendly ou de uso 
amigavel, popularizados pelo celebre 
Macintosh, da nao mcnos famosa Ap- 
ple Computer Inc. estao deixando de 
ser, aos poucos, urn recurso sofisticado 
e exclusivo de programacao para toma- 
rem-se, cada vez mais, uma caracteris- 
tica comum de softwares uttiiados em 
certas familias de micros domcsticos. 

O conceito de programa amigavel 
foi idealizado e desenvolvido a partir da 
linguagem SMALL TALK 80, utilizado 
pela Xerox norte-americana. A caracte- 
n'stica principal deste tipo de software 
e o seu uso orientado por menus, ico- 
nes, janelas que se sobrepoem como 
folhas de papel alem de manipulacao e 
controle do programa atraves de mou- 
se 

O sistema MSX tambem ja conta 
com o recurso dos programas user 
friendly. Podem ser encontrados, no 
mercado, alguns programas orientados 
por menus e utlizando recursos de edi- 
cao FULL SCREEN, sendo sua opera- 
cao feita pelas teclas de controle do cur- 
sor, que se posiciona nas opcoes do 
programa, simulando o uso de um 
mouse 

Estes programas, com menus muito 
semelhantes ao Macintosh, sao de ope- 
racao muito simples, de maneira geral. 

Janelas ft windows. 

A utilizacao de janelas, pelo usuario em 
seus programas podera dar a estes apli- 
cativos uma aparencia mais profissio- 
nal, alem de melhorar sensivelmente a 
apresentacao visual do mesmo. Entre- 
tanto, esta tarefa costuma ser um tanto 
cansativa pela dificuldade de construir 



as janelas, sem contar o tempo gasto na 
tarefa. 

Apesar disto, mostraremos um mo- 
do facil e rapido para qualquer pessoa 
que possua um micro do padrao, im- 
plantar este recurso cm seus programas. 

Isto e feito atraves do uso de tres su- 
brotinas basicas para desenhar janelas 
e menus no video. As rotinas basicas 
para desenhar janelas e menus no vi- 
deo. As rotinas encontram-se nas linhas 
50.000, 50.010 e 50.030, dandoentra- 
da na posicao da janela no video (x,y), 
o seu comprimento (p), a altura (1) e a 
cor (c). Para que nao haja necessidade 
de calculo da posicao das janelas, nem 
preocupacao com o "borramento" da 
tela grafica, apos a demonstracao vira 
um programa que o ajudara a construir 
suas janelas. 

Usando as teclas de funcao e as de 
controle do cursor, pode-se criar jane- 
las em qualquer lugar do video e em 
qualquer tamanho. 

Pode-sc editar ate 30 janelas simul- 
taneamente, sobrepostas ou nao 

Apos a criacao das telas, pressione 
F8 e aparecera no video as linhas cor- 
respondentes a cada janela, como por 
exemplo: 

1000 X = 176:P = 48:Y = 25:1 = 48: 
C= 15: GOSUB 50000 

As cinco variaveis na linha acima sao 
a posigao da janela no video (x,y), o 
comprimento, a altura e a cor. Esta linha 
com o numero apropriado, deverf ser 
colocada no programa onde se preten- 
de utilizar a janela construida. As linhas 



10 B0T09000 

301 HC=l: RETURN 

302 HC=2: RETURN 

303 HC=3: RETURN 

304 HC=4: RETURN 

305 HC=5: RETURN 

306 HC=6 : RETURN 

307 HC=7: RETURN 
9000 CLEARIOO" 

9007 DI«Xl31),Yi31),F(31>,L(3 
1),C(31),F(31):F0RI=1T07:KEY( 
I)ON:NEni:KEY!9)0FF:KEY(10)O 
FF : ONKE Y80SUB30 1 , 302 , 303 , 304 , 
305,306:0PEN"GRP:*F0R0UTPUTAS 
fl 

9009 C0L0R1,5,5:SCREEN2:X=72: 
P=144:Y=0:L=58:C=15:G0SUB5001 
0:PSET(75,6),C:PRINT#l,"Coa o 

editor de":PSET(75,16),C:PRI 
NTH, 'janelas pode-se":PSET(7 
5,26),C:PRINTIl,*criar janela 
5":PSET(75,36) ! C:PRINTIl, , peq 
uefias...":FORJ=lT0100:NEXTJ 

9010 X=32:P=24:Y=40:L=23:C=5: 
GOSUB 50010:FORJ=1T0500: IFHC= 
300THENRETURN-.ELSENEXTJ 

9020 X=80:P=136:Y=73:L=75:C=3 
:G0SUB50010:PSET(B6,761,C:PRI 
NTtl ,."... Medi as. . . " : FDRJ=ITD5 
00: IF HC=300 THEN RETURN ELSE 
NEXTJ 

9030 X=32:P=200:Y=6:L=181:C=1 
5:G0SUB 50010:PSET!B5,8),C:PR 
INTm,'..^ grandes.":FORJ=lT 
0500: IF HO300 THEN RETURNELS 
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50.000, 50.010 e 50.030 deverao estar 
presentes no programa que contera as 
janelas. Para que isto aconteca, pressio- 
ne F9 e as tres linhas ficam disporu'veis 
no video, para que sejam copiadas ou 
gravadas (para que sejam mergeadas 
nos programas). A tecla F10 deixa todo 
o programa Editor de Janelas disponf- 
veis para gravacao. 

.Instrucoes de uso: 

O programa tern um menu com 6 
opcoes que ajudarao a construcao das 
janelas. Esse menu aparece no video 
quando a tecla RETURN e pressionada. 
Pressionando qualquer outra, o menu 
desaparece e a janela que estiver sendo 
editada e reimpressa (se nao houver ne- 
nhuma janela em edicao, aparece so- 
mente o cursor). 
Fl — Seleciona um dos 3 tipos de jane- 



las pre-determinadas pelo programa. 
Essa opcao deve ser utili2ada antes das 
outras. 

F2 — Muda o tamanho ou posicao da 
janela. Quando a tecla e pressionada, o 
programa espera que usuario mude o 
tamanho da janela que esta no video Is- 
to pode ser feito atraves do cursor, que 
move a parte inferior, aumentando ou 
diminuindo a janela. Pressione RE- 
TURN e a janela passa ao tamanho de- 
terminado. Para mudar de lugar, sem 
mudar de tamanho, basta apertar RE- 
TURN, assim que a opcao for acessada. 

F3 — muda a cor da janela 
F4 — Edita ou cria outra janela. A sele- 
cao da janela a ser editada e feita pelas 
teclas horizontais do cursor, avancando 
ou retornando de janela. Quando esse 
processo esta sendo executado, a jane- 



la corrente aparece no video, for aper- 
tado, nesse momento, RETURN a janela 
passa a ser a escolhida para edicao. Pa- 
ra criar uma nova janela, basta avancar 
com o cursor at£ aparecer tela limpa e 
aperte RETURN. 

F5 — Imprime todas as janelas criadas. 
Quando a tecla e pressionada, a primei- 
ra janela. Pressionando qualquer tecla, 
aparece a segunda e assim por diante. 
Apos todas as janelas terem sido im- 
pressas, mantenha a tecla apertada pa- 
ra sair da opcao. 

F6 — Imprime no video as linhas que 
fornecerao os dados para a chamada no 
seu programa de uma das subrotinas 
que imprimem as janelas. Quando es- 
ta funcao e utilizada, a tela fica com o 
fundo preto e aperece a linha corres- 
pondente a segunda e assim por dian- 
te. 



ENEXTJ 

9040 X=B0:P=104:Y=0:L=48:C=10 

1S0SUB 50010:PSET(B8,6),C:PRI 

NTtl,*For«ato5":PSET(S8,16),C 

:PRINT#l,*variados:";FORJ=lTD 

100: NEXT J 

9050 x=16:p=32:y=44:l=123:c=3 
:G0SUB50010:x=72:P=128:y=143: 

L=2i:C=3:G0SUB 50010: X=80:P=4 
8:Y=54:L=4a:C=7:6QSUB 50000 
9060 X=136:P=48:Y=64:L=48:C=7 

:bosub 50010: x=64:P=40:Y=H4: 

L=15:C=2:G0SUB 50030: X=192:P= 
48:Y=22:L=103:C=10:G03UB 5000 

0:fgrj=1t0600: ifhc=300thenret 

urnelsenextj 

9070 cls:x=16:p=64:y=6:L=24:c 

=15:60sub50030:pset(20,10),c: 

PRINT#l,"Menu5:":X=16:P=88:Y= 
39:L=98:C=15:60SUB 50000:PSET 
(34,41) ,C:PRINT#1, "menu":PSET 
(20 f 55),C:PRINT#l,"i-sucQ":PS 
ET(20,65),C:PRINTtl,"2-sorvet 
e":PSET(20,75),C:PRINTtl,"3-d 
oce":PSET(20,85),C 

9071 PRINT»i,*4-5algado" 
9080 X=56: P=B0: Y=90: L=94: C=15 
: FDRJ=1 T0600: NEXTJ: GOGUB 5000 
0: PSET (64 , 92) , C: PRINTtl , "esco 
I ha: " :PSET (59, 1 06) , ClPRINTi 1 , 
"Fl-apaga":PSETI59,116),C:PRI 
NTtl,"F2-edita":P3ET<59,126), 
C:PRINTtl,"F3-volta":PSET(59, 
136),C:PRIHTIl, , l4-fii" 

9090 X=112:P=136:Y=31:L=lll:C 



=15: F0RJ=1T0600: MEXTJ:G0SUB50 
000: PSEK120, 33) , C: PRINTtl , "■ 

enu de entrada":PSET(l 17,48), 
ClPRINTtl.'l-cadastrar'lPSETI 
l!7,5B),C:PRINT«l, , 2-alterar° 
:PSET(117,6B>,C:PRINTtl,*3-ap 
agar":PSET(117,78),C:PRlNTti, 
"4-outra entrada" 

9100 fqrj=1t0700: ifhc=300then 
return:elsenextj:cls:x=48:p=1 

6o:y=q:l=41:c=io:sosub 50010: 

PSET(60,10) ,C:PRINTtl, "entrad 

a de dados:" 

9110 X=40:P=192:Y=51:L=U9:C= 

7:G0SUB 50000:PSET(100,53),C: 
PRINT#l,"Entrada n :PBET(50,71) 
,C:PRINTIl f "none":PSET(50,B0) 
,C:PBIMTil," 

■:PSET!50,92),C:PRINTIl,"tel 
ef one":PSET(50, 102) ,C:PRINT#1 

h 11 

J 

9111 PSET(50,114),C:PRINT11," 
e«pre5a":PBET(50,124),C:PRINT 
11," ":PSET( 
50.136).C:PRINTll,"cargo":PSE 
T(50,146),C:PRINT#1 > - 

9120 f0rj=1t0700:ifhc=300then 
return:elsenextj:cls:x=56:p= 

1 60 : Y=0 : L=28 : C= 1 5 : G0SUB500 1 : 

PSET(8Q,8),C:PRINTfl, "diverse 

s. ■ . " 

9130 X= 32 :P= 8S :Y= 52 It" 

119:C=15:6BS'uB50010 

9140 X=4C :P=72 :Y=58*.L=18:C= 

4:B0SUB 50030:PSET(70,66i,C:C 



"90.00" :C0L0R1 

9150 j=0: FQRY=87T01 47STEP20 : F 
ORX=40T088STEP24: P= 16:L=15:C 

= 10 :J=J+l:G0SUB 50010:PSET( 

x+2,y*2>: ifj<io tkenprintii.j 

:ELSE IF J=10 THEN PRINTtl," 
0":EL3EIFJ=11 THEN PRINTtl," 

9151 MEXTKINEITY 

9160 X=I28:P=112:Y=liO:L=48:C 

=14:G0SUB 500I0:PSET(158,115) 

,C:PRINTtl,"AVIS0*:PSET(132,l 

25),C:PRINTtl,"Nao desligue": 

P3ET(132,135),C:PRINTtl,"o ii 

cro." 

9180 X= 176 IP" 16 :Y= 159 :L 

=32:C= 14 I60SUB 50010 

9190 F0RJ=1T080C: IFHC=300THEN 

RETURN: ELSENEXT J :CLS:X=40:P= 
160:Y=0:L=28:C=15:GDSUB50010: 
PSET(B0,6),C:PRINTtl,"Que tal 

uBa":PSET(80,16),C:PRINTtl," 
piraaide ?' 

9195 I=l:X=ll2:J=XiP=l6:L=14: 
c=t5:fgry=43 td 179 step16:f0 
rj1=1toi:gosub50010:x=x+16:ne 
xtji:i=i+i:j=j-b:x=j:nexty 
9200 fqrj=1 t0800: ifhc=30cthen 

return: elsenextjicls 

9210 X= 56 :P= 168 IY= :L=5 
7:C= 15 :60SUB 50010:PSET(68, 
6), CIPRIHTI1, "PRESSIONE <RETU 
RN)":PBET(68,16),C:PRINTtl,"P 
ARA EXECUTfiR 0":PSET(68,26!,C 
:PRIWT#1. "PROGRAMA." 
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9230 i fhc=300thenreturn: else i 

finkey$=""then 9230 

10000 xx=o:pp=o:ll=o:yy=o:cc= 

0:reh »** editor de janelas * 

It 

10010 C0L0R1 , 5, 5: 3CREEN2: X=0: 

Y=0:P=48: L=4B: CC=5: C=15: J=l: S 
PRITE* ( 1 ) =CHR* (255) +3TRING* (7 

,128!:SPRITEt(2)=STRIN6*<7,l) 

+CHfi$(255i 

10050 PUT SPRITEl,(X,Y),l,l:P 

UTSPRITE2,iX+P-7,Y+L-7),l,2 

10055 A$=INKEY$ 

10060 IF STICK<0)=3 ANDX+P<25 

5THENX=X+-B: 60T010050 

10070 IF STICK 10) =7 ANDX>OTHE 

HX=X-S:E0TD10050 

100EO IF STICK(C)=5 ANDY+L<19 

1 THEMY=Y+i : GGTOiOOSO 

10090 IF 3TICKI0)=1 ANDY>0THE 

MY=Y-l: GOTO 10030 

10093 IFA*=CHR*U3) THEN COLO 
RKBGSUB 10900 

10094 IFHC=300THE-NRETURN: ELSE 
:IFHC:>0 THEN ON HC G03UB 103 
00, 10400, 10500, 10600, 10700: IF 
HC-06 THEN HOO 

10095 IF HC=6 THEN GOTO 10900 
1(096 IFHC=300 THEN RETURN 
10200 SOTO 10055 

10300 IF FIJJ/O THEN SWAP X,X 

t:SKftf yy,y:snap p,pp:swap l, 
ll:swap c,cc:sosub50040 
10306 if ffj)>othenswap x,xx: 
swap yy,y:s«ap p,pp:swap l,ll 
:SWAP c,cc:xx=X:yy=y:PP=P:ll= 
l:elsexx=x:yy=y:ll=l:pp=p 
10309 if f(j)=c> or f(j>=3 the 

N F (J! = i :ELSEIF F(J)=1 OR F(J 

)=2 7HENFIJ)=F(JW 

10310 IF F(J);0 THEN ON F(J) 

GQSUE 50000, 5001 0, 50030: RETUR 

N 

10400 PUT SPRITE1,(X,Y1,1,1:P 

UTSPRITE2, (X+P-7.Y+L-7), 1,2 

10410 IF STICK<0)=3 ANDX+P<25 

5THENP=P+8: GGT01 0400 

10420 IF STICK(0)=7 ANDPM6TH 

ENP=P-8:60T010400 

10430 IF STICK(0)=5 ANDY+L<19 

1THENL=L+1:60T010400 

10440 IF STICKI0)=1 ANDD8THE 
NL=L-l:60TQ10400 

10441 IFHC=300 THENRETURN 
10450 IFINKEY$OCHRt(13) THEN 

10400:ELSEF(J)=FIJ)-l:lFF(J) 



10900 P1=3:P2=3:SWAP F,P1:SWA. 
P L,P2:P=88:L=112:G0SUB50000: 
PSET(X+16,Y+2I,C:PRINTI1,"MEN 
U":PSET(X+5,Y+16),C:PRINT#1," 
Fl-tipo":PSET(X+5,Y+28),C:PRI 
NTIl,'F2-ta*an.":PSET(Xt5,Y+4 
0) , C: PRINTfl f ■F3-cor" 

10901 PSEm+5,V+52),C: PRINT! 
l,"F4-outra":PSETU+5,Y+64!,C 
:PRINT#l,'F5-todas":PSET(X+5, 
Y+76),C:PRINT#l, , F6-fia" 

10902 I FP i =300THENP 1 =0: RETURN 
10910 IF IKKEY$="'THEH 10910 
10920 SWAPC , CC: GOSUB50040: SWA 
?C,CC;SWAP P,Pl:SWAPL,P2:IF F 
(J)>0 THEN F(J)=F(J)-l:IFF(J) 
■1 THEN F { J ) =3 

10930 IFXX=0 THEN XX=0:IFYY=0 

THEN YY=0 

10940 IF FI])>0 THENSWAP X.XX 

:SWAP Y, Y Y : BOSUB 1 0300 : SWAPX , X 

X : SWAP Y,YY:RETURN:ELSERETURN 

50000 LINE(X,Y)-iX+P,Y+L),C,B 

F:LINE(X,Y)-(X+P,Y+L),1,B:LIN 

E(X,Y+12)-<X+P,Y+12),1:LINE(X 

,Y+L-8t-a+P,Y+L-8),l:LINE(X+ 

P-B, Y+L)-(X+P-B, Y+12) , I: LINE ( 

X+2, Y+L+l)-(X+P+2, Y+L+2), 1,BF 

: LINE(X+P+1 , Y+2) -< X+P+2, Y+L+2 

),1,BF: RETURN 

50010 LINEiX,Y>-(X+P,Y+L),C,B 

F:LINE(X,Y!-(X+P,Y+L),1,B:LIN 

E«X+2,Y+L+l)-<X+P+2, Y+L+2), 1, 

8F:LINE(X+P+l,Y+2)-(X+F+2,Y+L 

+2 ),1,BF: RETURN 

50030 LJNEIX,Y)-(X+P,Y+D,C,B 

F:LINE(X,Y)-(X+P,Y+L),1,B:RET 

URN 

50040 LINEIX,Y)-(X+P,Y+L),C,B 

F:LINE!X,Y)-(X+P,Y+L),C,B:LIN 

EiX+2,Y+L+l)-<X+P+2, Y+L+2), C, 

BF:LINE(X+P+l,Y+2)-(X+P+2,Y+L 

+2), C,BF: RETURN 

50500 HC=300: RETURN: DATA160, 3 

,11,12,27,6,0,56,16,0,0,226,8 

,10 

50600 DELETE50500-60840 

60040 * BY RANDOLPHO SANTANA 

* 

60500 DATA06,10,11,00,02,21,0 

0,03,22,60, EA.ED, 53, 62,EA,05, 

0E,FF,CD,4A,O0,EB,CD,4D,OO,EB 

,23,13,00 

60510 DATA79,FE,00,20,F0,2A,6 

0,EA,ED,5B,62,EA,ED,43,64,EA, 

01,00,01,09,EB,09,ED.4B,64,EA 



30 

10820 print-.print'iooo x=";x( 
I); , :p=";P(I);":y=";yid; , :l= 
*iLii);":c="iC(l);':60SUB ";: 

IF F( I)=l THEN PRINT'SOOOO" E 

LSE IFF(I)=2 THEN PRINT'50010 

"ELSE PRINT"50030" 

10830 IF INKEY$=" THEN 10830 

10840 NE X T I : PR I NT : PR I NT " F I « " : 

STOP 

<1 THEN F(J)=3 

10460 G0T010300 

10500 C=C+l:IFC>15 THEN C=0 

10505 FU)=F(J)-l:IFF(J)=0 TH 

EN FIJ)=3 

10510 G0T010300 

10600 x(j)=xx:y(j)=yy:p(j)=pp 
:l(])=ll:c(ji=c 

10610 A$=INKEY$ 

10615 I? STICK(0)=3 AND (F(J) 

GO AND J (30! THEN SWAP C,CC:G 

OSUB 10680: SWAP C,CC:J=J+1:G0 

SUB10690 

10620 if stick(q>=7 and j>1 t 
hen swap c,cc:gdsu8 10680:swa 
p c,cc:j=m: gosub 10690 
10630 if a*=chr»u3> then xx= 
x:pp=p:yy=y:ll=l:if p=o and l 
=0 then p=4b:l=48: return else 

RETURN 
10640 G0T010610 

10680 x=x(J):y=y(J):p=pij):l= 

LiJ):IFfIJ)O0 THEN G0SUB5004 

0: RETURN ELSE RETURN 

10690 X=X(J):Y=Y(J):P=P!J):L= 

L(J):C=C(J):IFF(J)O0 THEN ON 

FIJ) G0SUE50000, 50010, 50030:R 

ETURN ELSE RETURN 

10700 FOR- 1=1 T015:X=X(I):Y=Y 

< I ) : p=p fl): L=L ( I ) : c=c ( I ) : iff f 

DOO THEN ONF(I) G0SUB50000, 

50010,50030 

10705 IFHO300THENRETURN:ELSE 

IFINKEY$="" THEN 10705 

10710 NEXTI 

10720 IFINKEY$= n " THEN 10720 

10730 C0L0RCC:SCREEN2:X=X(J): 

Y=Y(J):P=PU):L=L(J):C=C!J):I 

FFIJJOO THEN ONF(J) GDSUB500 

00,50010, 50030:RETURN ELSE P= 

48: L=48: RETURN 

10800 C0L0R15,l,l:SCREENl:IF 

f(j)>0 then x(j)=xx:y(j)=yy:p 
(J)=pp:L(J)=ll:C(J)=c 

10810 F0RI=1TQ15 

10315 IF F(I)=0 THEN GOTO 103 



16 MSXMCRO 



,EB,7B,FE,00,20,CB 

60520 DATAC9,06,10,11,FF,11,2 

1,FF,10,22, 60, EA,ED, 53,62, EA, 

05,0E,FF,CD,4A,OO,EB,CD,4D,00 

,EB,2B,1B,0D 

60530 BATA79,FE,00,20,F0,2A,6 

0,EA,ED,5B,62,EA,ED,43,64,EA, 

oi, 00,01, AF,ED,42,EB,AF,ED, 42 

,ED,4B,64,EA,EB,78 

60540 DATAFE,00,20,C7,C9 

60600 DATA3E,01,32.EE,EA,21,1 

B,02,22,E8,EA,22,E6,EA,2A,EA, 

EA,7E,21,00,00,16,00 

60610 DATA5F,06,08,19,10,FD,1 

1,8F,1B,19,22,EC,EA,FD,2A,EC, 

EA, ED, 5B,E6,EA, 21, 00,20, 19,22 

.EC.EA^D^EC.EA^.Qfl.FD,? 

E,00 

60620 DATAED,53,EC,EA,2A,EC,E 

A,CD,4D,00,3E,1F,DD,22,EC,EA, 

2A,EC,EA,CD,4D,00,DD,23,FB,23 

,13 5 10,E0,ED,53 # E6,EA,2A,EA,E 



A,23,22,EA,EA 

60630 DATA7E,FE,OD,20,A5,23,7 

E,FE,0C,CS,3A,EE,EA,3C,32,EE, 

EA,FE,11,C8,22,EA,EA,2A,EB ! EA 

,01,00,01 

60640 BATA09,22,E6.EA,22,E8,E 

A,C3,FB,EA 

60700 BATA01, 00,00, DC, 2A,7A,E 

B,ED,5B,7C,EB,DD,7E 1 00,FE,0D, 

20,01, 03, 73, 8A, 20, 09, 79, BB 

60710 DATA20.05.DD, 22, 7A.EB.C 

9,DD,23,13,E7 

60800 DATA21, 50, 03,11,00,00, 7 

E,FE,BO,20,05,3E,7E I 77,13,58, 

FE, 37,20, 05,3E, 60,77. 1S,4F,FE 

,84 

60810 DATA20,05,3E,4i,77,ia,4 

6,FE, 89,20,05, 3E, 49, 77, 18, 3D, 

FE,8A,20,05,3E,4F,77,13,34,FE 

,8B 

60320 DATA 20,05,3E,55,77,:S, 

2B,FE,8C,20,05,3E.,41,77,13,22 



,FE,8D,20,05,3E,45,77,13,19,F 

E,8E 

60330 DATA20,05,3E,4F,77,13,1 

0,FE,8B,20,05,3E, 41, 77,18,07, 

FE,9A,20,03,3E,55,77,23,7C 

60840 DATABA,20,99,7D,BB,20.9 

5.C9 
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n» 


nnu 


■«o«M mo 


noi riiuu) 


Kxa*M Mp 


ntt 


nnu 


KXMM «W 


Ml 


FOQT* 


Edrtot Gratm con o Dual -nt* iMwa desennai e proaM o out d 


243 


.i> !;"»- 


Joguc Flnrami wn prtilio m»uco tfvip do munavtjs Com di 


269 


Holler Bill 


Seraarionf jogo de flippn am Quatia BDulmns 30,00 






sen owiciat In capu . 6J?,flo 






«moi ngm. EacthMD' ... . 6000 


2TO 


Hyper Sport III 


CorftuGBO do Sport 1 1 II com dMenu upas (fe cornaebclo en 


?lfi 


Cannon hflBW 


Vote" I o lAmo sobrevMMle de um ainuair no deserto Sis art- 


244 


(Mli- 


Am* poKial j nam dm DanMos . . 60.00 






Ire eks annda de bedm. atrerfrsM as ptso com p*. salU 






iiwb lm tda ler* dasum en aqua mmigoi t saMji o sou 


245 


Pac-Uv 


Igual an ',•> - 1- Pac-htin do IIIpwb iipo Conc-Comt San- 






com an e a r»sl*ne 80.00 






■W rei 1 1 . de supnmenlos 60 00 






ocvai 60.00 


271 


BUae 


UJe de tnie cunlra rmcTO 011 um arnjo HO 00 


209 


pflQfy 


•■•' 1 1 ■ ■> !>■ mi, , ., ., b osO r. i, avnbm ler* dtsiuti seus 


240 


Pirg-Pong 


Jogua Ding-pong com stu otgo ou con moo 60.00 


172 


GunFigM 


Sea) um palcMiro no velfio Oesa tup rrnuao 1 maar oandiocs 






-ii-Tiijo- 6097 


247 


unraOESS 


Ullima wrflo * octv rternaciiinal 60 00 
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PROGRAM/^ 

A TABUADA 
ELETRONICA 



Paulo Roberto Pinheiro Elias 



Introdwjao: 

Existem pelo menos duas 
conicoes fundamentals 
para aprender matematica: 
o interesse criado pela 
relacao afetiva do aluno 
com a disciplina e o 
numero de exercicios 
feitos. 

Enquanto o primeiro 
destes dois itens flea 
preferencialmente a cargo 
do professor, que deve 
mostrar sempre a utilidade 
do que se estuda com 
exemplos praticos, o 
segundo (sentar para 
estudar), pode ser 



praticado dentro de casa, 
estimulado pelos pais, 
atraves de condicoes 
ambientais adequadas. 

Conveninentemente 
orientada, a crianca pode 
usar o micro para estudar 
e fazer exercicios de 
qualquer natureza, 
aprendendo assim a 
dominar a maquina e a 
criar com ela, urn 
ralacionamento mais 
intimo e menos xenofobo 
com a informatica. 

E importante que se 
diga que o uso do 



computador ja e, "per se", 
um exemplo notavel da 
aplicacao do estudo da 
matematica, e atraves dele 
os pais podem demonstrar 
com criatividade como e 
importante para a 
construcao do raciocinio 
logico o estudo das 
ciencias exatas. 

Na primeira parte deste 
artigo, serf mostrado um 
programa que substitui o 
tradicional livrinho da 
tabuada, oferencendo,. 
paralelamente, exercicios 
de fixacao. 

A Tabuada Eletronica: 
O programa apresenta um 
menu principal, a partir do 
qual aparecem outros 
menus, cada qual 
permitindo sempre a 
mudanca na escolha da 
opcao. Tratando-se de um 
programa para criancas, foi 
conveniente testar 
possfveis erros na entrada 
de dados do tipo "sim" ou 
"nao" (s/h), retornando a 
perguntar caso a opcao 
nao seja satisfeita ("caps 



lock", neste caso, deve 
estar desativado). 

A tabuada que o 
computador constroi e 
replica exata do livrinho 
que as criancas costumam 
adotar nas escolas. Nao hi, 
no entanto, limitacao para 
escolha do numero a 
partir do qual sera feita a 
tabuada. Se isto for julgado 
inconveniente, basta 
acrescentar uma linha do 
tipo: 

IF N < 10 THEN GOTO 
> n? da linha que contem 
o input de N < em seguida 
a cada entrada de dados 
para a formulacao da 
tabuada. 

Na opcao de exercicios, 
sempre que um erro for 
cometido, havera um 
retorno para repeticao da 
conta. Quando uma lista 
de operacoes termina, o 
programa retorna ao menu 
correspondent^ 
permitindo a crianca 
mudar de opcao ou teclar 
para o encerramento do 
programa, se estiver 
cansada. 



10 REM PROGRAMA PARA 

ESTUDAR TABUADA 
15 REM autor: Paulo R 
oberto P. Elias 
20 SCREENO:COLOR1,8: 
KEY OFF 

30 LOCATE10, 11 : PRINT 
"TABUADA ELETRONICA" 
40 FOR T = l TO 1000 :N 
EXT T 

50 CLS: COLOR1, 10 
60 LOCATE12,8: PRINT" 
TECLE A OPCAO: " 
70 LOCATE0, 11: PRINT" 

1 - ESTUDAR A TABUAD 
A" 

80 LOCATE0, 14: PRINT" 

2 - FAZER EXERCICIOS 

n 

85 LOCATE0, 17 -.PRINT" 

3 - FIM DO PROGRAMA" 
90 A$=INKEY$ 

100 IF A$=""THEN 90 
110 IF A$="1"THEN GO 
TO 130 



120 IF A$="2"THEN GO 

TO 650 

125 IF A$="3"THEN GO 

TO 1150 

130 CLS:C0L0R1,5 

140 LOCATE10,5:PRINT 

"ESCOLHA A TABUADA:" 

150 LOCATE0, 8 : PRINT" 

1 - DE SOMAR" 

160 LOCATE0, 10: PRINT 

"2 - DE DIMINUIR" 

170 LOCATE0, 12: PRINT 

"3 - DE MULTIPLICAR" 

180 LOCATE0, 14: PRINT 

"4 - DE DIVIDIR" 

185 LOCATE0, 16: PRINT 

"5 - QUERO ESCOLHER 

OUTRA OPCAO" 

190 I$=INKEY$ 

200 IF 1$="" THEN 19 



210 IF I$="l" THEN G 

OTO 250 

220 IF I$="2"THEN GO 

TO 350 



230 IF I$="3"THEN GO 

TO 450 

240 IF I$="4" THEN G 

OTO 550 

245 IF I$="5" THEN G 

OTO 50 

250 CLS:INPUT"QUE NU 

MERO DESEJA SOMAR" ;N 

260 LOCATE14,5:PRINT 

"TABUADA DE ";N;":" 

270 FOR 1=1 TO 10 

280 R=I+N 

290 PRINT N;"+" ;I;"= 

";R 

300 NEXT I 

310 LOCATE0, 18: INPUT 

"DESEJA OUTRO NUMERO 

(s/n)";R$ 

320 IF R$="s"THEN 25 



330 IF R$="n"THEN 13 



340 IF R$O"3"0R R$< 

>"n"THEN GOTO310 

350 CLS:INPUT"QUE NU 
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MERO DESEJA DIMINUIR 

";N 

360 LOCATE14.5:PRINT 

" TABUADA DE " ; N ; " : " 

370 FOR I=N TO 10+N- 

1 

380 R=I-N 

390 PRINT I ; "-" ;N; "= 

" ;R 

400 NEXT I 

410 LOCATEO, 18: INPUT 

"DESEJA OUTRO NUMERO 

(s/n)";R$ 

420 IF R$="s"THEN 35 



430 IF R$="n"THEN 13 



440 IF R$O"s"0R R$< 

>"n"THEN GOTO410 

450 CLS:INPUT"QUE NU 

MERO DESEJA MULTIPLI 

CAR" ;N 

460 LOCATE 14,5:PRIN 

T " TABUADA DE " ; N ; " : " 

470 FOR 1=1 TO 10 

480 R=I*N 

490 PRINT N; "x";I;"= 

";R 

500 NEXT I 

510 LOCATEO, 18: INPUT 

"DESEJA OUTRO NUMERO 

(s/n) ";R$ 

520 IF R$="s"THEN 45 



530 IF R$="n"THEN 13 



540 IF R$O"s"0R R$< 

>"n"THEN GOTO510 

550 CLS:INPUT"QUE NU 

MERO DESEJA DIVIDIR" 

;N 

560 LOCATE14,5:PRINT 

"TABUADA DE " ;N; " : " 

570 FOR I=N TO N*10 

STEP N 

580 R=I/N 

590 PRINT I; "t" ;N; " = 

";R 

600 NEXT I 

610 LOCATEO ,18: INPUT 

"DESEJA OUTRO NUMERO 

(3/n)";R$ 

620 IF R$="s"THEN 55 



630 IF R$="n"THEN 13 



640 IF R$O"s"0R R$< 
>"n"THEN GOTO610 
650 CLS:COLORl,13 
660 -LOCATE10 , 5 : PRINT 
"ESCOLHA O EXERCICIO 

670 LOCATEO. 10 -.PRINT 

"1 - DE SOMAR" 

680 LOCATEO, 12: PRINT 

"2 - DE DIMINUIR" 

690 LOCATEO, 14: PRINT 

"3 - DE MULTIPLICAR" 

700 LOCATEO, 16: PRINT 

"4 - DE DIVIDIR" 

710 LOCATEO, 18: PRINT 

"5 - QUERO ESCOLHER 

OUTRA OPCAO" 

720 Z$=INKEY$ 

730 IF Z$ = "" THEN 72 



740 IF Z$="1"THEN GO 

TO 780 

750 IF Z$="2"THEN GO 

TO 870 

760 IF Z$="3"THEN GO 

TO 970 

770 IF Z$="4"THEN GO 

TO 1060 



775 IF Z$ = 



'THEN GO 



TO 50 

780 CLS:LOCATE16,0 :P 
RINT"EFETUE: " 

781 LOCATE 16,1:PRIN 

irt >r ft 

790 FOR 1=1 TO 9 
800 FOR X=I TO 10 
810 R=I+X 

820 PRINT I ;"+" ;X; "= 
" ; : INPUT Y : PRINT 
830 IF Y=R THEN PRIN 
T"ACERTOU !":PRINT 
840 IF YOR THEN PRI 
NT"ERROU !":PRINT:GO 
TO 820 

850 NEXT X,I:PRINT"F 
IM DO EXERCICIO" : FOR 

T=l TO 600: NEXT T 
860 GOTO 650 

870 CLS:LOCATE16,0:P 
RINT"EFETUE:" 

871 L0CATE16.1: PRINT 



900 FOR X=I TO 10+Z 

910 R=X-I 

920 PRINT X; "-" ;I; "= 

" ; : INPUT Y : PRINT 

930 IF Y=R THEN PRIN 

T"ACERTOU ! " : PRINT 

940 IF YOR THEN PRI 

NT"ERROU !":PRINT:GO 

TO920 

950 NEXT X, I: PRINT" F 

IM DO EXERCICIO" : FOR 

T=l TO 600:NEXT T 
960 GOTO 650 

970 CLS:LOCATE16,0:P 
RINT"EFETUE:" 

971 L0CATE16, 1 : PRINT 



880 FOR 1=1 TO 9 
890 Z='l-1 



980 FOR 1=1 TO 9 
990 FOR X=l TO 10 
1000 R=I*X 
1010 PRINT I;"x";X;" 
=" ; : INPUT Y: PRINT 
1020 IF Y=R THEN PRI 
NT"ACERTOU ! " : PRINT 
1030 IF YOR THEN PR 
INT"ERROU !":PRINT:G 
OTO1010 

1040 NEXT X, I: PRINT" 
FIM DO EXERCICIO" :FO 
R T=l TO 600: NEXT T 
1050 GOTO 650 

1060 CLS:LOCATE16,0: 
PRINT"EFETUE" 

1061 LOCATE16.1 : PRIN 

f T»" — — — — — mtm W 

1070 FOR 1-1 TO 9 
1080 FOR X=I TO 10*1 

STEP I 
1090 R=X/I 

1100 PRINT X; "t" ;I; " 
=" ; : INPUT Y: PRINT 
1110 IF Y=R THEN PRI 
NT"ACERTOU ! " : PRINT 
1120 IF YOR THEN PR 
INT"ERROU !":PRINT:G 
OTO1100 

1130 NEXT X, I: PRINT" 
FIM DO EXERCICIO" : FO 
R T=l TO 600:NEXT T 
1140 GOTO 650 
1150 CLS:LOCATE17,12 
: PRINT "FIM" 
1160 FOR T-l TO 1000 
:NEXT T:CLS:COLOR15, 
1,1: KEY ON: END 
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PRQ3RAMAS 



DESENHOS 

E EFEITOS SONOROS 



Leonardo Fontes 



Esta sine de programas destina-se a de- 
monstracao do uso de comandos gra- 
tia >s e sonoros como LINE, SOUND e 
CIRCLE. 

Sao quatro programas bcm outros 
que voce podc incluir em programas 
menores como rotinas liteis, principal- 
mente jogos de acao. 



SOUN 
6:SQ 
2.1; 



Programa 1 

10 SCREEN 2:CQL3R15,1,1 

20 rf s 25S 

30 v - i 9 i 

40 LINE<235-H,13i-V)-(H,V 

50 H=H-fc 

60 V=V-6 

SO GOTO 40 

90 C=I«T(RNDi-TIKE)*15)+l 

100 SOUND 0,200:S0UND1,0: 

D6, 20: SDUKD7, 233: S0UND8, i 

UND9, li: S0UNDI 1 , 90: SQUfiDI 

SOUND 13, 10 

110 COLOR,, C 

120 GOTO BO 



Programa 2 

1 CLS 

2 KEY OFF 

4 INPUT " DE UH VALOR PARft G( 
ATE 254) ";G 

9 COLOR 15,1,1 

10 SCREEN 2 

11 H=0 

12 H=H+2 

13 IF H=G THEN 20 



14 LINE(129,0)-SH,92),15 

15 LINE(129,192)-!H,92),15 

16 GOTO 12 

20 FOR F=0 TO 255 
30 PSET(0 f F),15 

40 PSET(F,0),15 

41 PSET(255,F),15 

42 PSETiF, 291) , 15 
45 NEXT F 

50 FOR R=0 TO 450:NEXT 
60 GOTO 1 



Programa 3 

10 CLS 

20 SCREEN 2-.C0L0R15, 

1 

30 FOR J=l TO 890 

40 FOR L=0 TO 120 ST 

EP 75 

50 FOR K=0 TO 140 ST 

EP 3 

60 CIRCLE(K,L),15,4 

70 CIRCLE(L,K),15,7 

80 CIRCLE(K,Li,15,15 

90 NEXT K,L,J 



Programa 4 

10 PL 1 ? 


20 SCREEN ; 

J 


: COLOR 1,1 


30 FOR J=l TO 800 
40 FOR H=0 TO 90 


50 FOR T=l 
60 CIRCLE ( 


TO 15 
.15,90), H, 


1 

70 NEXT T 


B0 NEXT H 
90 NEXT J 
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CALEIDOSCOPIO 



Marcio Esteves 

Este programa imita o luncionamento 
dc um caleidoscopio. A tela e divida em 
quadrantes e um niimero e gerado ran- 
domicamente e colocado em cada um 
dos quadrantes, dando a sensacao dc 
"espelhos". 

Quanto mais quadrantes voce esco 
lher mais demorado sera o programa c 



quanto menos quadrantes maior tera de 

ser o circulo e mais cfrculos por qua- 

drante. O usuario tern, portanto, con- 

trole sobre: 

Formato: Quadrados ou cfrculos — li- 

nha 132 

Tamanho: de quadrado ou circulo — li- 

nha 137 



Niimero de quadrantes (2 a 36) — linha 

151 

Cores de fundo e de borda — linha 

1530 

Com isto voce obter efeitos variados e 

bastantcs interessantes atuando sobre 

estas rotinas. 



REM CALEIDOSCOPIO 

1 REM HJHMHHH 

2 REM * » 

3 REN * DESENHOS * 

4 REM * * 

5 REM * COM * 

6 REM * * 

7 REM * * 

8 REM * * 

9 REM * * 

10 REM * HARCIO * 

11 REM * * 

12 REM * ESTEVES * 

13 REM * * 

14 REM ************ 

15 CLEAR 

IB ON STOP GOSUB IOC 
OISTOP ON 

19 KEY OFF 

20 DIM A (100) 
30 DIM Z(100) 
40 CLS 

50 OPEN "6RP: ' F0RQU 

TPUTAStl 

60 P=INT(RND(TIME)*5 

) 

70 FOR R=l TO P 

80 DD=INT(RND(1)*P)* 

P 

90 NEXT R 

100 SCREEN 1 

102 COLOR 11,1,12 

105 print:print:prin 
t"a0 sinal da musica 

pressi0ne gualquer 
tecla":print:print 

106 rem *dad0s inici 

AIS* 

110 INPUT "VOCE SUER 
A TELA EM 4 CORES ( 
S/N) ■;«$ 
120 IF «»="N" OR «*= 



V THEN 125 ELSE GO 
SUB 1500 

125 cls:print:print 

126 input" escreva r 
espectivamente a cor 

do fundo e da borda 
da tela ";cf,cb:ct= 

1 

130 cls:print:print 
132 input "voce quer 
desenhos com circul 
os 0u quadrados (c/q 

) "IBM 

135 CLS:PRINT:PRINT 
137 INPUT "TAMANHO D 
CIRCULO 0U QUADRAD 
(0.1 A 1001 "fR 
140 IF RC1 OR RMOO 
THEN 135 

150 cls:print:print 

151 input "buant0s b 
uadrante3 voce ouer 

(2 A 36) ";N 

160 IF N<2 OR N>36 T 

HEN 150 

170 cls:print:print 
190 input "quant0s c 
ircul0s por quadrant 
e voce quer 12 a 200 
) ";po 

200 IF P0<2 OR P0>20 
THEN 170 
205 COLOR CF,CB 
210 SCREEN 2,3,0 
220 IF W$="S" OR H*= 

V THEN GOSUB 730 
230 REM *CALCUL0S* 
235 Nl=256/N 

240 N2M92/N 
250 REM tEXECUCAO* 
255 FOR TT=1 TO P0 
260 8=2 



270 AI1)=INT!RND!1)+ 

Nl) 

280 FOR T=2 TO N STE 

P 2 

290 A(T)=((B*N1)-1)- 

A(l) 

300 A(T+1)=((B»N1)-1 

)+A(l) 

310 B=B+2 

320 NEXT T 

330 B=2 

340 Zll)=INT(RNDIi)* 

N2) 

350 FOR T=2 TO N STE 

P 2 

360 Z!T)=((B*N2)-D- 

1(1) 

370 ZIT+1)=((B«N2)-1 

)+Z(l) 

380 B=B+2 

Z% NEXT T 

400 C1=1NT(RND(11*16 

) 

410 FOR Y=l TO N 

420 FOR H=l TO N 

430 IFQW$="Q"QRaW*=" 

q*THEN441ELSECIRCLE( 

A(Y),Z(W)),R,C1 

440 IF QW*="C- OR QH 
S="c" THEN PAINT (A( 
Y!,Z(W)),C1 

441 IF QH*="B" OR QH 
«="q" THEN LINE(AIY) 
,Z(W))-IA(Y)+R,Z(W)» 
R),C1,BF 

450 NEXT W 

460 NEXT Y 

480 B=2 

490 Z(1)=INTIRN0(1)+ 

N2) 

500 FOR T=2 TO N STE 

P 2 



510 Z(T)=((B*N2)-1)- 

Z(l) 

520 Z(T+1)=((B*N2)-1 

)+Z(l) 

530 B=B+2 

540 NEXT T 

550 C1=INT(RND(1)*16 

) 

560 FOR Y=l TO N 

570 FOR W=l TO N 

580 IF DH*="0" OR QW 

t="q" THEN GOTO 591 

ELSE CIRCLE(A1Y),Z(H 

)),C1 

590 IF BWt="C" OR QH 
$="c" THEN PAINT (A( 
Y),Zi«)l,Cl 

591 IF QHt="Q' OR BW 
$="q" THEN LINE (A(Y 
),Z(N)>-(AfY)+R,Z(W) 
+R),C!,BF 

fc00' NEXT » 

610 NEXT Y 

630 BEEP 

640 GOSUB 800 

650 IF INKEY$=" " TH 

EN 650 

670 LINE(67,171>-!20 

2,191), 10,BF 

680 PSET(77,181),CT 

690 COLOR CT 

700 PRINTI1," 0UTRA 

VEZ (S/N)" 

705 IF INKEY*="N" OR 

INKEY*="n" THEN 100 

710 IF INKEYt="S" OR 

INKEY*=V THEN 780 

ELSE GOTO 705 
720 GOTO 20 
730 REM »TELA EM 4 C 
ORES* 



735 LINE(0,0)-I127,9 

5!,CF,BF 

740 LINE(127,95)-(25 

5,0),CG,BF 

750 LINE(127,?50!-i2 

55,191), CH.BF 

760 LINE(127,95)-(0, 

191!,CJ,BF 

770 RETURN 

780 COLOR 15,1,12 

790 GOTO 60 

800 REM »MUS!Cfi DE E 

NCERRAHENTO* 

810 PLAY"t240L6V12 a , 

"T240L2V9" 

820 PLAY"ABCD\"EGE" 

830 PLAY"GFGDBGAB"," 

BEE" 

840 PLAY-ACDEEA* 

350 PLAY'FGADFACBA". 

"DFD" 

360 PLAY"BGAB07DCCED 

°."G6C 

870 PLAY"EDCBAGDGFG" 

/BED" 

880 PLAY"E07DC06BAGD 

GFIG2","CCIDG" 

890 RETURN 

1000 SCREEN l: COLOR 

11,1,12:END 

1500 CLS 

1510 PRINT 

1520 PRINT 

1530 INPUT "ESCREVA 

RESPECTIVAHENTE AS C 

ORES DOS 4 FUND03 E 

DA BORDA ";CF,CG,CH, 

CJ,CB 

1540 CT=1 

1550 RETURN 
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PRO^RAM/^ 



TABELA 

PERIODICA 

ELETRONICA 



Joseilton Alves Ferreira 



Este programa e de grande utilidade pa- 
ra estudantes de primeiro grau no estu- 
do de quimica, em particular na utili- 
zacao da Tabela de classificacao perio- 
dica dos elementos. 

O programa esta dividido em sete 
itens; 

Classificacao periodica — Onde e digi- 
tado o simbolo do elemento qufmico, 
pressionado RETURN e o computador 
fornecera todos os dados sobre aque- 
le elemento como nome do elemento, 
numero atdmico, massa atdmica, sim- 
bolo e quantidade de eletrons nas ca- 
madas eletrdnicas. 

O linico detalhe que fogc da norma 
e que o simbolo e este nao existir na ta- 
bela periodica, ocasionara um erro de 
fndice fora do limite. 
Anions — o micro fornecera os anions 
rotativos e seus respectivos nomes. 
Cations — serao apresentadas duas op- 
goes com o nome dos cations e scu 
simbolo representative 
Hidrogenoanions — o micro fornece- 
ra os anions de hidrogSnio, seu nome 
usual e o nome oficial segundo IUPAC 
Formulacao de acidos — opcao esta 
que vai detalhar exemplos entre acidos 
e anions, sua propriedadc e formula ge- 
ral. 

Formulacao de bases e sais — onde o 
usuirio tera duas opcoes a fazer, tendo 
como resultado duas definicoes, con- 
ceitos e exemplos. 

Solubilidade em agua — onde serao 
mostrados os anions soliiveis e insolu- 
veis trazendo observacoes para os ca- 
sos de compostos soluveis e insoliiveis. 



5 REM 'HUHlUHHttlHHl 

****** 

10 REM * 
* 

15 REM » TABELA PERIODICA 

* 
20 REM * 

t 

25 REM * J0SEILT0N J, ADRIA 

NA * 

30 REM * (JANEIRO/1987) 

* 
35 REM * 

40 REM ********************** 
****** 

45 REM 

50 CLS:G0SUB 4330 

55 FOR 1=1 TO 9000:NEXT 

60 0PEN"6RP:"F0R0t!TPUTA3#l 

45 POKE64683',i:3CREEN3,3:C0L 

QR15,1,7:F0R B=0 T010: COLOR D 

+3:PRESET(9G,75):CLS:PRINT#1, 

10-D:PLAY*V9F7":F0RS=0TO550:N 

EXT: NEXT: CLOSE: GOTO 70 

70 SCREENOIKEYQFF 

75 CLEAR:C0L0R15,1 

80 CLS:PRINTTAB(ll;STRING*(37 

,45):PRINTTAB<1);CHR*(45);TAB 

U2);"MENU DE OPCOES"; TAB (37) 

;CHR$(45):PRINTTAB(l)iSTRING$ 

(37,45):PRINT:PRINT 

85 PRINTTAB(5);"(01) - CLASSI 

FICACA0 PERIODICA" 



90 PRINTTAB(5);"!02) - ANIONS 

95 PRINTTAB(5):"(03) - CATION 

S" 

100 PRINTTAB!5!i"(04i - HIDR0 

GEN0ANI0NS" 

105 PRINTTAB(5)!"(05) - FCRMU 

LACA0 DE ACIDOS" 

110 PRINTTAB(5);"(06) - FORMU 

LACA0 DE BASES E SAIS" 

115 PRINTTAB(5)!"(07) - S0LUB 

ILIDADE EM AGUA" 

120 PR]NT:PRINTTAE(5): 

INPOT'SUA OPCAO :";AA 

125 IF AA(1 OR AA>7THEN PRINT 

TAB(5):INPUT"Redigite oprTo"; 

AA:G010 125 

130 PRINT:PRINTTAB(5): INPUT " 

C0NFIRMA (S/N)"',AA* 

135 IF AA»="N"0R AA*='n"THEN 

7C 

/J 

140 IF AA$="S'0R AAt=VTHEN 

145 

145 REM ** DESVI0S ** 

150 IF AA=! THEN COLOR l,ll:B 

OT0 185 

155 IF AA=2 THEN C0L0R12, 15:G 

0T0 2455 

160 IF AA=3 THEN COLOR 4,15:G 

0T0 3015 

165 IF AA=4 THEN COLOR 15,4: B 

0TO3485 

170 IF AA=5 THEN COLOR 1,3:80 

TO 3715 
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175 IF AA=6 THEN COLOR 1,9: BO 

TO 3790 

180 IF AA=7 THEN COLOR 1,12:8 

OTO 3950 

185 REM « CLASSIFICACAO PERI 

ODICA »» 

190 CLS: PRINTTAB ( 1 ) ;STR1HB»(3 

7,205):PRINTTABIII;CHR»<202); 

TABI7); "CLASSIFICACAO PERIODI 

CA";TAB<371;CHRi<202l:PRlNTTA 

BU);STRING»!37,206) 

195 DIN BH105):DII1 Ml 1051 

200 B*I!)="H" 

205 B«(2)="HE- 

210 B«(3I='LI" 

215 B«H)=*BE* 

220 B»(5>="B" 

225 B»(6I="C" 

230 B»I7)='N" 

235 B«(B?='0" 

240 BI(9I="F' 

245 B»(10)="NE" 

250 8*(11I="MA' 

255 B»I12)='N6" 

260 BtI13)=*AL' 

245 Bt(11)="SI* 

270 B«I15I= - P" 

275 B«(16)='S - 

280 BH17)="CL - 

285 B1(1B)="AR" 

290 Bt(19!='r 

295 B«i20)= - CA' 

300 BJ(21I="SC" 

305 B«(22)="TP 

310 B»!23)="V 

315 B»(24!="CR" 

320 Btl25)='NN* 

325 B»(26i="FE" 

330 8H27)="C0- 

335 B«(28)="NI' 
340 B*(291= - CU" 

345 BII30)=*IN' 

350 Btl31)="BA' 

355 B$(32I="GE" 

360 B«(33)="AS' 

365 B»(341="SE' 

370 B«(35)='BR" 

375 Bi(36)="KR" 

3B0 B«(37)= , RB' 

385 B»(38)= , SR' 

390 B«(39)="Y' 

395 B1(40)="ZR" 

400 B4(4il="N8" 

405 BSI42)="N0" 

410 B»(43)="TC" 

415 B»(44)= - RU' 

420 B»I45)='RH" 

425 B$!46)="PD" 

430 B»(47I="A6" 

435 8t(43)="CD" 

440 B*i49)="IN' 

445 B$(50)="SN" 

450 B«(51)="SB - 

455 B»I52)='TE" 

460 8$ (53)=" I" 

465 BH54I="XE' 

470 B$(55)= - CS - 

475 B«(56)=*BA" 

480 Bt(57)="LA" 



485 B*(581=*CE" 
490 B»(59)="PR" 
495 B»(60)='ND" 
500 B«161)="PH" 
505 Bt(62)="SH" 
510 B$(631="EU" 
515 B«(64)='6D" 
520 B4<65)='TB" 
525 Bt(66)="DV 
530 BK671="H0* 
535 Bt(68)="ER" 
540 B«469J=°TH" 
545 B«(70)="YB" 
550 B»(71)="Lli" 
555 B«(721="HF" 
560 BI(73)="TA" 
565 B«(74t=-H- 
570 B»(75)="RE' 
575 Bt(76)="0S" 
580 Bt(77l= , IR" 
585 B»(7B)="Pr 
590 B«t79)= , AU" 
595 BHBO)="HB" 
600 B»(B1)="TL* 

605 B»(B21="PB' 

610 B»(83)="BI" 

615 B»(B4)="P0* 

620 B«(B5)='AT' 

625 B$(86)="RN - 

630 Bi(87)="FR" 

635 8«(B8)='RA - 

640 B»(89)="AC" 

645 B«(90)="TH" 

650 B«<91t="PA' 

655 B*<92)=*U - 

660 BH931="NP" 

665 B*I941='PU" 

670 B4(95)=*AN" 

675 Bt(96)="CN" 

680 B«C97)=*BK- 

6B5 B*t9B)="CF" 

690 B«I99)=*ES" 

695 B»[100)='FN" 

700 BM101)="HD" 

705 B*(1021="N0" 

710 B»1103I="LR" 
715 B«(104)="KU" 

720 B»(105)='HA - 
725 C4(l)="Hidrogenio' 
730 C«(2l=*Helio' 
735 C4l3l="Litio" 
740 C*t4)="Berilio" 
745 C*l5)="Boro" 
750 C«l6)="Carbono' 
755 Ctt71='MitrogeiiJo" 
760 CK8)='0xigenio" 
765 Ct(9l="Fluor' 
770 CtdOl^Neonio" 
775 EtHils'Sodio" 
780 CIU2>="Nagnesio" 
785 C»ll3)="Aluninio" 
790 C»(14)="Silicio" 
795 C«(15)="Fosforo" 
BOO C*ll6)=*Enxofre" 
305 CtU7l = "Cloro" 
810 C»(lB)="Argonio" 
815 C*(19)="Potassio° 
E20 C*t20)="Calcio" 
825 C«(2ll="Escaridio' 



830 C*(22)='Iitanio'' 
835 C»<23>=*Vanadio" 
840 C*I24>="Cro«io" 

845 CtUS^'Nanganes 1 
B50 C«!26)="Ferro' 
855 C«(27l="Cobalto' 
B60 CU28l=*Niquer 
865 C*(29)="Cobre" 
870 C*(301="Zinco* 
875 C*(31t="Galio' 
880 Ct(32)="6erianio" 
885 C»(33)="Ar5enio g 
890 C»(341="Selenio" 
895 Ct(35)="Broio" 
900 CK36)="Criptonio" 
905 C»(37l="Rubidio" 
910 C$(3B)="Estroncio" 
915 Ctl3?l="Itrio" 
920 MMOl-'Zirconio" 
925 «(411='Niobio" 
930 Ct(42)="Nolibidenio" 
935 Ct(43I^Tecnecio" 
940 C»144)='Rutemo" 
945 CM45)="Rodio" 
950 M(46)='Paladio" 
955 C»l47l='Prata" 
960 Ctl4B)="Cadiio" 
965 C»(49)="!ndio" 
970 C4(50l="Estanho" 
975 CKSl^'Antitonio" 
980 C*(52)="Telurio* 
985 C*(53)="Iodo" 
990 CM54)="Xenonio" 
995 C«(55)="Cesio" 
1000 C«l56l="Bario" 
1005 «<57>=*Lantanio* 
1010 C»l5B)="Cerio" 
1015 Ct(59)="Praseodi«io" 
1020 C$(601="Neodino" 
1025 C»(61)=•Pro•ecio , 
1030 C$(62!=•Sa•ario■ 
1035 CJ(63)='Europio" 

1040 C«l64l="6adolinio" 
1045 Ci(65)="Terbio' 
1050 C»(661="Disprosio' 
1055 C»(t7)="HDl«io' 
1060 C«(681= , Erbio" 
1065 CM69)="Tulio" 
1070 C*(701= - Iterbib* 
1075 C*(71)="Lutecio" 
1080 C«(721= , Hafnio" 
1085 C»(73i='Tantalio" 
1090 CK74)="TungsteniD" 
1095 C«(75)="Renio" 
1100 MMI^OsiiD' 
1105 C«(77)='Inifio" 
1110 C»(78)="Platina" 
1115 C«(79)='0aro' 
1120 C»(801= - Nercurio' 
1125 C*<8I)='Talio* 
1130 C*(82)="Chuibo" 
1135 C«(B3)="8isnuto* 
1140 C$<B4l="Polonio" 
1145 C«(851='Astato" 
1150 C4(£6!="Radonio" 
1155 C»(B7)="Francio" 
1160 CHaei^RadiD" 
1165 C*(89)="Act£.niD" 
1170 C*(901="Torio" 



1175 Ci(91)="Protactinio" 
1180 C»(92l='Uranio" 
11B5 C«(?3>='Neptunio" 
1190 C*(94l="PIutonio" 
1195 C$(95)="Aierico" 
1200 CiH61="Ciirio* 
1205 C«(?7>=*Berquelio* 
1210 C«(98)=*Californio" 
1215 Ci(99)="Einstenio" 
1220 C*U00>='Feriio" 
1225 C*(101)= , Hende!evio' 
12J0 Ci(102)=■Nobe]io■ 
1235 C«(10J) = *La»irencio* 
1240 C»(104)=*Kurchatovjo* 
1245 C*(105l="Hahnio" 
1250 REN 

1255 PRINT:PR1NT:PRINTTAB(5); 
'Digite o sinbolo do eleiento 
quiiico procurado*:PRINT:PRI 
NTTAB(5>:INPUT"Si»bolo = *;AB 
« 

1240 DIN DM105) 
1265 D$(l)="l" 
12-70 DM2>="2" 
1275 DM3)="2-r 
12B0 Dt(4)='2-2" 
i2B5 D*(5)=*2-3" 
1290 Di(6I="2-4* 
1295 D*(7)="2-5- 
1300 DM8)="2-4" 
1305 DM9>=*2-7" 
1310 D»(10)="2-6" 
1315 D«<1 1)="2-B-1" 
1320 D»[12)="2-B-2' 
1325 D«(I3)="2-8-3" 
1330 D*<14)='2-B-4" 
1335 WU5)*"2-B-5' 
1340 Dtll4l='2-B-6" 
1345 D»(17)="2-8-7" 



1350 D<(iei 
1355 DM19) 
1360 D(<20l 
1365 DM21) 
1370 DM22) 
1375 DM23) 
1380 DM241 
1385 D*(25) 
1390 DM26); 
1395 DM27) 
1400 Dt (2B): 
1405 DM29) 
1410 DM30) = 
1415 D«(31) 
1420 DM32) = 
1425 Dt(33l= 
1430 Di<34)= 
1435 DM35> = 
1440 DM36I = 
1445 D*(37)= 
1450 D»(3B)= 
1455 D«(39)= 
1460 D»I40)= 
1465 DM41>= 
1470 DM42) = 
1475 DM43) = 
1480 DM44) = 
1485 DM45) = 
1490 01(461= 
1495 DK47) = 



■2-B-8' 

■2-8-8-1" 

•2-8-B-2" 

■2-8-9-2* 

■2-8-10-2* 

■2-8-11-2" 

•2-8-13-1" 

•2-8-I3-2" 

■I-8-S4-2" 

■2-8-15-2" 

"2-8-14-2" 

"2-8-18-1" 

■2-B-1B-2" 

'2-8-18-3' 

"2-8-18-4" 

■2-8-18-5" 

"2-8-18-4" 

"2-8-18-7" 

-8-18-8' 
■2-8-18-8-1" 
2-8-18-8-2" 
■2-8-18-9-2" 
2-B-18-10-2" 
"2-8-58-12-1- 
2-8-18-13-1" 
2-B-1B-14-1" 
2-8-18-15-1- 
■2-8-18-16-1" 

-8-18-1B" 
■2-8-18-18-1* 



1500 DM4B)="2-I 
1505 0M49)="2- 
1510 D«(501="2-l 
1515 DM51)="2- 
1520 DM52)="2-I 
1525 DM53)="2- 
1530 DM54)=*2-I 
1535 Di(55)='2-i 
1540 Dt (541 ="2-1 
1545 DM57)=*2-l 
1550 Di(58l="2-I 
1555 DK59)='2-I 
1540 DM40)= - 2- 
1565 DM41)="2- 
DM62)=*2- 
DM43) = '2- 
D»(44)='2- 
DM65)=*2- 
D«(66>=*2- 
DM67)=*2' 
D«(6B)=*2- 
DM69)='2- 
DM70)="2- 
DM71)=*2- 
DM72)=*2- 
DM73)=*2- 
DM74)="2- 
DM75)=*2- 
DM76)=*2- 
D$(77)="2 
DM78)=*2- 
D»(79)="2- 
1660 DMB0)="2- 
1665 DMB1)="2-B 
1670 DM82)="2-8 
1675 D$!83)=*2-8 
1680 DM84I="2- 
1685 DJ(85)="2- 
1690 0M86I="2- 
1495 D*(87l="2- 



1570 
1575 
1580 
I5B5 
1590 
1595 
1600 
1605 
1610 
1415 
1420 
1425 
1430 
1435 
1440 
1445 
1450 
1455 



M8-18-2" 

3-18-18-3" 

1-I8-18-4- 

3-1B-1B-5* 

1-18-18-6" 

J-18-1B-7" 

i-lB-18-B 1 

1-18-18-8-1* 

M8-18-8-2" 

1-18-18-9-2" 

1-18-20-8-2" 

1-18-21-8-2" 

B-IB-22-8-2" 

B-18-23-B-2* 

B-18-24-B-2" 

•B-1B-25-B-2* 

8-18-25-9-2" 

■8-18-27-8-2" 

8-18-28-8-2" 

•8-18-29-8-2* 

8-18-30-8-2" 

B-18-31-8-2" 

B-1B-32-B-2" 

8-18-32-9-2" 

B-18-32-10-2* 

8-18-32-11-2" 

8-18-32-12-2" 

8-1B-32-13-2" 

8-18-32-14-2" 

8-18-32-17" 

1-18-32-17-1 ■ 

8-18-32-18-1 

18-32-18-2" 
-1B-32-1B-3" 

18-32-18-4" 
-18-32-18-5- 

-1B-32-1B-6" 
I-18-32-1B-7" 
-18-32-18-8* 
-18-32-18-B-l 



1700 DMB8)=*2-B-18-32-18-8-2 

1705 t«(89)='2-8-18-32-18-9- 

2" 

1710 DM90)='2-8-18-32-I8-10 

-2" 

1715 D» (91 ) ="2-8-18-32-20-9- 

2 1 

1720 D$(92)= , 2-8-18-32-21-9- 

2" 

1725 D*(93)="2-B-I8-32-22-9- 

2" 

1730 DM94>= , 2-8-18-32-23-9- 

2" 

1735 DM95) ="2-8-18-32-24-9- 

2" 

1740 DM96)="2-B-lB-32-25-9- 

2" 

1745 D$(97)=*2-8-IB-32-26-9- 

2 1 

1750 DM98)=*2-8-l8-32-27-9- 

2* 

1755 DM99)="2-B-lB-32-28-9- 

1740 DM100)="2-8-lB-32-29-9 

1745 0Ml01)=*2-8-18-32-30-9 



1770 DM102) = "2-8-18-32-32-8 

-2" 

1775 DHI03)="2-8-18-32-32-9 

-2" 

17B0 D«(1041="2-8-IB-32-32-l 

0-2" 

1785 D« ( 10T5) ='2-8-18-32-32-1 

1-2" 

1790 DIH EMI05) 

1795 EMI)="1.008" 

1800 EM2)="4.0O" 

1805 E*(3)= , 4.94" 

1810 EM4)=*9.01" 

1B15 EM5)=M0.B* 

1B20 E«(6I="12.0* 

1825 E»(7)='14.0" 

1830 EM8)=*!6.0" 

1835 EM9)="I9.0" 

1840 EM10>=*20.2" 

1845 E*(ll)="23.0" 

1850 Ei(12)= , 24.3' 

1855 EMI3)="27.0" 

1840 EMI4)="28.1" 

1B45 EM15)="3l.O" 

1870 E$(16)="32.1" 

1875 E«(I7)= , 3S.5" 

18B0 EM18)=*39.9* 

1885 E*(19)='39.1" 

1890 EM20)=*40.1* 

1895 E*(21)=*45.0- 

1900 E$(22)=*47.9* 

1905 EM23)=*50.9* 

1910 E$(24)=*52.0* 



1915 
1920 
1925 
1930 
1935 
1940 
1945 
1950 
1955 
1960 
1965 
1970 
1975 
1980 
1985 
1990 
1995 
2000 
2005 
2010 
2015 
2020 
2025 
2030 
2035 
2040 
2045 
2050 
2055 
2040 
2065 
2070 
2075 
2080 
20B5 
2090 



E((25)= 
E$(26)= 
EM27)= 
EM2B) = 
£M29)= 
E*(30)= 
£1(31): 
Et(32)= 
E$(33)= 
EM34) = 
EM35) = 
EM34) = 
EM37) = 
EM38> = 
E«(39h 
EM40)= 
E«(41)= 
EM42)= 
EM43) = 
E$(44)= 
EM45) = 
EM44) = 
EM47); 
EM48) = 
EM49) = 
E»(50)= 
EM51> = 
EM52) = 
E$(53l= 
EM54)= 
EM55I = 
EM54) = 
EM57) = 
E«(58>= 
EM59) = 
EM60)= 



<"54. r 

■55.8" 

*58.9- 

•5B.7" 

"63.5" 

•45.4" 

•■69.7" 

■72.4' 

•74.9* 

■79. 0" 

•79.9" 

■83.8- 

•85.5" 

"87.4" 

■88.9" 

■91.2* 

■92.9* 

■45,4" 

■98.9* 

MOl.l* 

■102.9" 

•104.4" 

■107.9" 

■112.4" 

■1 14.8" 

"118.7" 

■121.8" 

•127.4" 

"126.9" 

•131.3" 

■132.9" 

•137.3" 

■138.9" 

•140.1" 

'140.9* 

■144.2" 
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2095 EM61) ="11451" 

2100 E«i62)="!50,4" 

2105 EK6J)= , 15Z.(I' 

2110 E*(64)="I57.3" 

2115 E»(65i="158.9" 

2120 E$166)="162.5" 

2125 E«t67)=*IA4.9- 

2130 E»!48>="147.3" 

2135 E«(t9)='168. < J- 

2140 E»I70>='173.0" 

2145 E»!7!)="175.0" 

2150 £*<72)='178.5" 

2155 E»(73)="180.9" 

2160 E«(74)="1B3.8" 

2165 Ei(75)="134.2" 

2170 E»(76)='190.2" 

2175 E»(77)="192.2" 

2IB0 E»(7B)= , 195.1" 

2185 E$(79>= , W.O" 

2190 E«(80)='200.6" 

2195 E$(8II="204,4" 

2200 E4<82)="207.2" 
2205 EK83)="209.0" 

2210 E*(84)="(210)" 
2215 EKa5)="(210)" 

2220 E*tat)=' (222)" 
2225 E* (87)=' 12231 " 

2230 E«(38)="226.0" 
2235 Ei(89)= , (227)" 

2240 E$(90)="232.0" 

2245 E*(91)="231.0" 

2250 E«192)='23B.O' 

2255 E»(93l="237.0" 

2260 E»(94)= , (2421" 

2265 E* (95)=" 1243)" 

2270 E«(96)=' 12451* 

2275 E««97>="(245)° 

2280 El(98)="(251)" 

2285 E«I99)="(254)" 

2290 E«(100)=" (254)" 

2295 E$(101)='(256)" 

2300 E«{102)='(254)- 

2305 E» (103)=" (2571 " 

2310 E»(1041= , I261)' 

2315 EH105)= , (260)'' 

2320 REM 

2325 KEY OFF 

2330 FOR IMTO 155 

2335 IF AB»=B«(I) THEM 2345 

2340 NEXT 1 

2345 60SUB 2365 

2350 PRINT:PRINTTAB(1): INPUT" 

ALGO MAIS (S/HJ'tfKIF Z*="S" 
OR Z»="s" THEN CLEAR: GOTO 18 

c 
J 

2355 IF Z»='N" OR I»«V THEN 
75 

2360 IF Z*=""THEN2350 
2365 CLS:PRINT:PRINTTAB(!);ST 
RING»(37,42}:PBINTTAB(1);STRI 
NG$(37,42) 

2370 PRINTTAB(1)!5TRIN6*(2,42 
);TAB(36)!STRING»(2,42) 
2375 PRINTTAB(l);STRINGi(2,42 
)!TAB(12ii'TABELA PERIODICA"; 
TAB(36l;STRING*(2,42) 
23B0 PRINTTABM) ; STRING* (2, 42 
);T«Bil21;STRINGt(6,451;TAB(l 
9!;STRINGII9,45I;TA8(36>;STRI 



NG(<2,421 

2385 PRINTTAB(1);STRING$(2,42 

);TAB(36);STRINGt(2,42) 

2390 PRINTTAB(l);STRIN6$<2,42 

);TAB(36);STRIN6$(2,42) 

2395 PRINTTABU);STR!N6tl2,42 

);TAB(4);"5Ubolo do eletento 

=> "iB»iII;TAB(36l!STRINGt(2 
,421 

2400 P.R1NTTABI1)!STRING$(2,42 
);TAB(36);STRrNGt(2,42) 
2405 PRiNTTAB 1 1 > > 5TRIN6* (2, 42 
);TAB(4);'No»e do elenento => 

"!CJ(I)iTAB(36);5TRING$(2,42 
) 

2410 PRINTTA8(1)!STRING*(2,42 
);TAB136>;STRING»(2,42) 
2415 PRINTTA8I1);STRING*(2,42 
);TAB(4)i"Nu»ero atonico =) 

■il!TAB(36)iSTRINGt(2,42) 
2420 PRINTTAB(II;STRINGt(2,42 
);TAB(36);STRIN6ti2,42> 
2425 PRINTTAB(1);STRING»(2,42 
);TAB(4);'Eletron => "iDi( 
I);TAB(36I;STRIN6*I2,42) 
2430 PRINTTABIl)iSTRINGt(2,42 
);TAB(361iSTRIN6t(2,42) 

2435 PRINTTAB(l)iSTRIN6«<2,42 
);TAB(4)i"Nassa atoiica => 
•;E*II);TAB(36);STRlNGt(2,42 
1 

2440 PRINnAB(l)iSTRING«(2,42 
)|TAB(36)iSTRINGK2,42) 
2445 PR1MTTAB 11)! STRINB* (37,4 
2):PRINTTAB(l)iSTRIN6*(37,42> 
2450 RETURN 
2455 REH «• ANIONS ** 
2460 CLS:PRINT:PRINTTABU)iST 
RINGK37,205l:PRINTTAB(l)iCHR 
t(202i;TAB(13);'ANI0NS(Noriai 
5)"!TAB(37»iCHR*(202):PRINTTA 
B(l);STRINGt(37,206) 
2465 PRINT:PRINT:PRINTTAB(3)i 
"ESCOLHA SUA DPCAO" 
2470 PRINT:PRINT:PRINTTAB(IO) 
i"(011 - HAL0B1NI0S" 
2475 PRINTTAB(10)!"(02) - CAR 
BONO" 

2480 PRINTTAB(10);'(03) - NIT 
ROGENIO" 

2485 PRINTTAB 1 10) ;■ (04) - FOS 
FORD" 

2490 PRINTTAB(10);'(05) - ENX 
OFRE" 

2495 PRINTIPRINTTABUO): INPUT 
"Opcao =>";AC* 
2500 IF AC$="1" THEN 2525 
2505 IF AC«="2" THEN 2640 
2510 IF AC«="3" THEN 2715 
2515 IF AC»="4" THEN 2750 
2520 IF ACJ="5" THEN 2810 
2525 FOR S=l TO 3 
2530 CLS:PRINT:PR1NTTAB(1)!ST 
RING»(37,42):PR!NTTAB(l)iSTRI 
NG((2,42);rAB(36)iSTRING«<2,4 
2):PRINTTAB(l)|STRING$(2,42)i 
TABH2);"1 - HA10G>NI0S";TAB( 
36)iSTRINGt(2,42):PRINTTAB(l) 
;STRINEt(2,42J;TAB<36);STRING 



$(2,42):PRINTTAB(l)iSTRING*(3 

7,42):IF S=2 THEN 25B0 

2535 IF S=3 THEN 2610 

2540 FOR Y=l TO 2 

2545 PR I NT : PR INT TAB ( 1 1 > i CHR* < 

95):PRINTTAB(10);"F";TAB(20); 

"Fluoreto" 

2550 PRINTTAB(12)iCHR*(95):PR 

INTTAB(10)i"Cl"iTAB(20);"Clor 

eto" 

2555 PRINTTAB(121iCHR«(95):PR 

INTTAB(10)!"Br";TAB(20)i"Broi 

eto" 

2560 PRINTTAB(11);CHRI(95):PR 

INTTAB(10)i - I';TAB(20);"Iodet 

o' 

2565 PRlNTTAB(13);CHRi(95):PR 

INTTAB(10l;"CIO"!TABI20)i'Hip 

oclorito" 

2570 print:print:printtab(3): 

INPUT'Digite <RETURN> p/ cont 

inuar';Z*:NEXT S 

2575 CLS:PRINT:PRINT 

2580 PRINTTAB(13);CHR»(95):PR 

INTTAB(10)i"CID'iTAB(20)i"Clo 

rito":PRlNTTAB(13);"2" 

2585 PRINTTABI13);CHR»(95):PR 

INTTAB(10)i"C10"iIAB(20)i"Clo 

rato'lPRINTTABiniJ'S" 

2590 PRINTTAB(13)iCHR4(95):PR 

INTTAB(10);"CI0"iTAB(20);'Per 

dorato":PRINTTAB(I3)i"4" 

2595 PRlNTTABil3);CHR»(95):PR 

INTTAB(10!i"BrO"iTAB(20)i"Hip 

obroiito" 

2400 PRINTTAB(13)|CHR*(95):PR 

INTTAB(10)i"Br0-iTAB(20);"Bro 

■ato":PRINTTAB(13)i"3" 

2605 :PRINT:PRINTTAB(1):INPUT 

•Diqite (RETURN) p/ ver o res 

tante";Z»:CLS:NEn 

2610 PRINT:PRINTTAB(12);CHR»! 

95):PRINTTAB(10);"I0";TAB(2O) 

; "Hipoiadi to" 

2615 PRINTTAB(12)iCHR«(95):PR 

INTTAB(10);"I0"iTAB(20);Moda 

to":PRINTTAB(121'3" 

2620 PRINTTAB(12);CHRJ(95):PR 

INTTAB(10)i"IO"iTAB(20)!"Peri 

odato":PRlNTTAB(12)i"4" 

2625 print:print:printtabi3): 

INPUT'Deseja algo tais (S/N)" 

;AE( 

2630 IF AE4="S" OR AE*=V TH 

EN 2460 

2635 IF AEJ="N" OR AE»=V TH 

EN 75 

2640 FOR Sl= 1 TO 2 

2645 cls:print:printtabu);st 

RING$(37,42i:PRINTTAB(l);STRI 

NG)(2,42);TAB(36)iSTRINGt(2,4 

2):PRINTTABIDiSTRING*(2,42); 

TAB(13)i"2 - CARBDN0"1TAB(36) 

;STRINS*(2,42):PRINTTAB(lliST 

RINGt(2,42)iTAB(36)iSTRIN6«(2 

,42):PRINTTAB(l!iSTRING»(37,4 

2): IF Sl=2 THEN 2690 

2650 m=CHR«(95) 

2655 PRINT:PRINTTAB(ll);"4"iT 
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flB<I2) ;XB«:PRINTTflB<10);-C-;T 

AB(20);"Carbeto(ietaneto>' 
2660 PRINTTABtl]);'2'iTAB(12) 
;XB*:PRINTTABfH))i"C*;TflB(20> 
;°Carbeto':PRINTTftB(ll)J'2 - 

266S PRINTTAB(12);XBt:PRINTTA 

B(10);"CN";TAB(20);"Cianeto" 

2670 PRINTTABU3);XB*:PRINTTA 

B{10);'CNn";TflB(20);-Cianata- 

2675 PRINTTAB(13);XB»:PRINTTA 

B(10)i"CNS';TAB(20li , Tiociatia 

to" 

26B0 PRINT TAB(16)i«B«:PRINTT 

AB ( 10) ; -H" ; TAB ( 1 2 ) ; "C-00- ; TAB 

(20);"Acptato , :PRIHTTAB(liliC 

HM131) 

2685 PRINT:PRINTTAB(3): INPUT" 

Digits -'RETURN) p/ ver o rest 

ante";J*:NEXT SI 

2690 PRINT:PRINTTAB(12);CHR»< 

50);TA8(13);XBt:PRINTTA8<10); 

■C0";TAB(20); , Carbonato , :PRrN 

TTAB(12);CHR«I51) 

2695 PRINTTAB(13);CHRt(50);TA 

B(14l;IB$:PRIKTTAB(10)i*C"iTA 

Bll2);"0"jTAB<20);"Oxalatc":P 

RINTTAB(1I);CHRK50);TAB(13); 

CHR(I52) 

2700 PRINTTAB(16);CHR»(51);TA 

B(17)iXB»:PRINTTAB(10);"Fe(CN 

)";TAB(20);"Ferricianeto":PRI 

NTTAB(16);CHR»(54) 

2705 PRINTTAB ( 16) ; CHRS (52) J TA 

BU7);XB*:PRINTTAB(10);"Fe(CN 

)*;TAB<20);"Ferrocianeto":PRI 

NTTABU6)iCHR»(54) 

2710 GOTO 2625 

2715 CLS:PRINT:PRINT TABIDiS 

TRING*(37,42):PRINTTAB(l)iSTR 

ING*(2,42);TAB(36);STRIN64(2, 

42):PRINTTAB(l)iSTRING»(2,42) 

;TAB(I2)"3 - N1TR06ENIO";TAB( 

36);STRIN6*(2,42):PRINTTAB(1) 

;STRING((2,42);TABI36);STRIN6 

«(2,42):PRINTTAB(l)iSTRING»(3 

7,42) 

2720 XC«=CHR»(95):XD«=CHR*(51 

):XE$=CHR»(50) 

2725 PRINT:PRINTTAB(11);JD»;T 

ABtl2)iXC«:PRINTTAB(10)!"N , ;T 

AB(20);"Hitreto" 

2730 PRINTTAB(ll)ilC*:PRINTTA 

B(10);"N";TABI20);"Azoteto(a2 

idaflPRMTTABdlliXD* 

2735 PRINTTAB I 12) ; XC»: PRIKTTA 

B(10)i"N0 , ;TAB(20);'Nitrito": 

PRINTTAB(12)!1E* 

2740 PRINTTAB ( 12) ; XC«: PRINTTA 

B(10);"N0"iTAB(20)i"Nitrato": 

FRINTTAB(12);XDt 

2745 GOTO 2625 

2750 XC»=CHRt(95):XD*=CHR4(51 

) : XE*=CHR* (50) : XF*=CHR* (52) 

2755 CLS: FOR Y=l TO 2:PRINT:P 

RINTTABIl)iSTRIN6»(37,42):PRI 

NTTABI1);STR1N6»(2,42);TAB(36 

) ! STRING* (2, 42 1 : PRINTTAB ( I ) } S 

TRINGI(2.42)iTAB!13);M - FOS 

F0RG"iTAB(36liSTR!NG*l2,42):P 



RINTTAB(l);STRINGt(2,42);TABI 

36);STRING«(2,42):PRINTTABI1) 

I STRING* (37, 421 

2760 IF V=2 THEN 2790 

2765 PRINT:PRINTTAB(!1); , 3_": 

PRINTTAB(10);"P'iMB(20)i , F"D5 

fflto' 

2770 PRINTTAB(14)UC»:PRINTTA 

B(10)i"H PD"iTAB(20)i"HipoTos 

<ito":PRINTTA8(ll);XE»;TAB(14 

)iXE( 

2775 PRINTTAB(13)iIEt;TABI14) 

;X«:PRINTTAB(10)i"HPO , iTAB(2 

0);"FosfitD":PRINTTAB(13liXD« 

27B0 PRINTTAB(12)iXD*;TAB(13l 

iXC»:PRINTTAB(10)"PO"!TAB(20) 

;"(0rto)(osfato':PRINTTAB<12) 

|XF« 

27B5 PRINT:PRINTTAB(3): INPUT" 

Digits <RETURN> p/ ver o rest 

ante"iJi:CLS:NEXT V 

2790 PRINT:PRINTTAB(12)iXC»:P 

RlNTTAB(10l;"PO"iTAB(20)i"net 

afosfato":PRINTTAB(12l;XD» 

2795 PRINTTAB ( 131 ; XF*f TAB (14) 

;XC»:PRINTTAB(10);'P 0";TA8(2 

0) ; "Pirof osf ato" : PRINTTAB (11) 

;xe«;tab(13>;chri<55) 

2800 printtab (13); xf»; tab (14) 

!XC»:PRINTTAB(10)i"P 0"iTAB(2 

0); , HipoFo5»ato":PRINTTAB(!l) 

;XE(;TAB(13);CHRM54) 

2805 GOTO 2625 

2810 XC»=CHR«(95):XD«=CHR*(51 

):XE»=CHR«(50):XF»=CHR«(52):X 

S*=CHR* (54 ) : XH*=CHft* (56 ) : CLS: 

FOR Y=l TO 2 

2815 ZA*=STRING*(37,42):ZB»=S 

TRIN6i(2,42) 

2820 PRINT:PRINTTAB(l)iZA«:PR 

INTTABd ) ; ZB«i TAB 13b) ; ZB«:PRI 

nttabu);zb»;tab(13);"5 - enx 

0FRE"iTAB(36)iZB*:PRINTTAB(l) 
iZBl;TAB(36);ZB»:PRINTTAB(l); 
ZM 

2825 IF Y=2 THEN 2850 
2830 PRINT:PRINTTAB(U)iXE$iT 
AB(I2);XC»:PRINTTAB(10);"S'iT 
AB(20)i"SuHeto" 
2B35 PRINTTAB! 12) IXEHTABI13) 
;XC«:PRINTTAB(10)!"SO , ;TAB(20 
)!'SuHito":PRINTTAB(12)iXD« 
2B40 PRINTTAB(12);XE*iTAB(13) 
!XCt:PRINTTAB(10);"SD"iTAB(20 
)!"Sul(ato":PRINTTAB(12)iXF» 
2B45 PRINT:PRINT:PRINTTAB(3): 
INPUT'Digite (RETURN) p/ver o 
restante";JI:CLS:NEXT V 
2B50 PRINT:PRINT:PRINTTAB(13) 
;XE»;TAB(I4)!IC*:PRINTTAB(10) 
!"S 0"iTABI20);"tiossuHato": 
PRINTTAB(1I);IE»;TAB(13);XD» 
2855 PRINTTAB(13)iXE»!TAB(14) 
;XCJ:PR1NTTAB(I0);"S 0";TAB(2 
0);"PersuHato":PRINTTAB(ll); 
XE»;TABU3);XHt 
2B60 PRINTTABfl3)iXEt;TAB(l4) 
;XC»:PRINTTAB(10);"S 0"iTAB(2 
0);"Tetrationato':PRINTTAB(Il 



);XF(;TAB(I3)iX6t 

2865 GOTO 2625 

2870 CLS 

2875 PRINT: PRINTTAB ( 1 3) ; XD«; T 

ABI14);XCI:PRINTTAB(10);Ft(5) 

;TAB(20liBt(5):PRINTTAB(I3)-,I 

M 

2880 PRINTTAB(13);XD*;TAB(14) 

;I»:PRINTTAB(10);Ft(6);TAB(2 

0);6t(6):PRINTTAB(13);XDI 

2885 PRINTTAB(I4);XF»;TAB(14> 

;XC»:PRINTTAB(10);F»(7);TAB(2 

0);6f(7):PRINTTAB(14)iX6t 

2B90 PRINTTABI13liXEt;TABI14) 

iXC«:PRINTTAB(10)!F$l8);TAB(2 

0);6»(8):PRINTTAB(13)iXF» 

2B95 PRINTTAB!14);IE*iTAB(14) 

!XC$:PRINTTABI10)iF»(9)iTAB(2 

0l;6»(9):PRINTTAB(12);IEt 

2900 GOSUB 3000 

2905 PRINT:PRINT:PRINTTAB(13) 

iXE$;TAB(14);ICt:PRINTTABI10) 

;F«(10)iTAB(20)!6»(10):PRINTT 

AS (13) I m 

2910 PRINTTABtl3)jIEt;TAB(14) 

;ICt:PRINTTAB(10);F«(ll);TAB( 

20);6»(11):PRINTTAB(I3);XE» 

2915 PRIIITTAB(13)iIE»;TAB(14) 

;IC»:PRINTTAB(10);F»(12)iTAB< 

20);6t(12):PRINTTAB(13);XG» 

2920 PRINTTAB(ll)iIC*:PRINTTA 

B(10)iF»(13)iTAB(20)i6*(13) 

2925 GOSUB 3000 

2930 CLS :PRINT:PRINT 

2935 PRINT:PRINT:PRINTTAB(I2) 

;IM:PRINTTAB(10I;F«(14);TAB( 

20);6«(I4) 

2940 PRINTTAB(13);XE«iTAB(14) 

jXC«:PRINTTAB(10);F«(15);TAB< 

20) ;6«(15) :PRINTTAB(13) ;XF« 

2945 PRINTTAB(13)iXE»iTAB(!4l 

;xc«:printtab(101;f«(i6);tab( 
20);6((16):printtab(13);xd« 
2950 printtabi13);xe*!tab(14) 

;XC«:PRINTTAB(10);F«(17)iTAB( 
20);6«(I7):PRINTTAB(i3liXD* 
2955 PRINTTAB(13);IF»iTAB(14l 
iXCCPRINTTAB(10);FI(18);TAB( 
20);Gt(19):PRINTTABM3);XFt 
2960 PRINTTAB(ll)iXE(jTAB(12) 
; XC«: PRINTTAB (10); Ft (19)i TAB ( 
20);B*I19) 
2965 GOSUB 3000 

2970 pr i nttab ( 1 3) ; xe« ; tab (14) 

;iccprinttab(10);f((20);tab( 
20);g«(20);printtab(13);xd» 
2975 printtab(13);xe»;tab(14) 
;xc«:printtab(i0)!f«(21);tab( 

20)iGK21):PRINTTAB(13);XEI 

2980 PRINTTABI13);XCt:PRINTTA 

B(10)iF*l22)iTAB(20l;6«(22):P 

RINTTAB(13);XFt 

2985 PRINTTAB(11);XE«;TAB(12) 

;ICt:PRINTTABI10);F«(23);TAB( 

20)!Gt(23):PRINTTAB(ll);XE» 

2990 FRINTTA8(13);XE»;TAB(12) 

;XC4:PRINTTAB(10);FK24);TAB( 

20);G»(24):PRINTTAB(13)iXE» 

2995 GOTO 3005 
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3000 PRINT: PRINTTAB (81 : INFUT" 

Digite (RETURN) p/ continuar" 

;az*:clb:return 

3005 GOTO 2625 

3010 frint:print:print 

3015 cls:print:za«=string«(37 

,42):ZB*=STRIN6«(2,42! 

3020 PRINTTflG(t);ZA*:PRINTTAB 

11I;ZB»;TAB(36);ZB*:PRINTTAB! 

H;ZBJ;TA8il5i;"C , TIDNS";TAB( 

36>;ZB*:PRlNTTABill;ZB«;TAB(3 

6);ZBJ:PRiNTTAB(li;ZA»:PRINT: 

PR I NT: PRINT 

3025 PRINTTAB(3)i"ESC0LHA ENT 

re os ,tens":print:print:frin 

T 

3030 PRINTTA8(10l!"(01) - Nox 

Fixo' 
3035 PR1NTTA8(10)|"(02) - Nox 

Varifvel' 
3040 PRINT:PRINT:PRINTTAB(101 
: IKPUT'OFCflO =>"iZ* 
3045 IF Z»=T THEN 3055 
3050 IP"Z*=-2- THEN 3310 
3055 REN »** NOX FIXO ••» 
3060 CLS:PRINTTAB(l)iZAI:PRIN 

ttab(1I|ZB»;tabi36i;zb«:print 

TAB ( 1 ) ; ZBi; TAB 1 15 J ; '(WX FIXO" 
;TAB(36);ZB«:PRINTTA8(l);ZBi; 

tab(36);zb»:printtab(1);za» 
3065 print:print:printtab(5>; 

"OFCIQNE:" 

3070 PRINT:PRINT:PRINTTAB(7>; 

"(Oil - Hetais Aicalinos" 

3075 PR!NTTAB(7);"(02) - Heta 

is Akalino Terrosos" 

30B0 PRINTTABI7)i , (03) - Nao 

Hetais* 

30B5 PR1NT:PRINT:FRINTTAB(7 1 

:INPUT"Qpcao =>';ZIS 

3090 IF ZU="I" THEN 3110 

3095 IF ZI*="2- THEN 3205 

3100 IF Zl»="3" THEN 32B0 

3105 IF MOT OR ZIIO"2" 

OR Zl$()"3" THEN 3035 

3110 REN 

3115 CLS 

3120 PR!NTTAB(1);ZA*:PRINTTAB 

(l);ZBt:TAB(36);ZBI:PRlNTTAB( 

l)iZB»)TAB(ll);"METAIS ALCALI 

NOS";TAB136l;ZB*:PRINTTAB(l); 

ZB»:TAB(36!;ZB«:PRINTTAB(lliZ 

A» 

3125 PRINT:PRINT:PRINTTABI27) 

3130 FRJNTTAB(10);"Litio - ;TAB 
C25) ; -Li " 

3135 PRINTTABI27);"*" 

3140 PRINTTAB(10)i"Sodio';TAB 

(25)!"Na" 

3145 PRINTTAB!26!:"*" 

3150 PRINTTAB!10li"Potassio"i 

TAB(25)S'K" 

3155 PRINTTABf27):'*' 

3160 PRINTTA8(10)!"Rubidio";T 

ABI25)i"Rb":PRINTTAB(27)j"t" 

3165 PRINTTABUOIi'Cesio'iTAB 

(25)i"Cs" 

3170 PRINTTABI27);**" 



3175 PRINTTAB(10>; - FrCncio'iT 

AB(25)|"Fr" 

3180 PRINTTABI27H"*" 

3185 PRINTTAB(IO) ;"Prata";TfiB 

(25);"Ag* 

3190 PRINT:PRINTTAB(3): 

INPUT'Quer continuar (S/N)";H 

♦ 

3195 IF H«="S" OR Ht="s" THEN 

3015 
3200 IF H»="N" OR H«="n" THEN 

75 
3205 FOR 1=1 TO 2:ZA«=STRINGt 
I37,42):Z8$=3TRIN6I!2,42! 
3210 lLS:PRINT:PR1NTTAB(1);ZA 
«:FRINTTAB(ll;ZB*iTAB136):ZB$ 
:PRINTTAB(ll!ZB*;TAB(7li"NETA 
IS ALCALINO TERR0S0S"iTABl36l 
|ZB»:PRINTTABI1);ZB»;TAB(36); 
!B»:PRINTTAB!1);ZA« 
3215 IF 1=2 THEN 3255 
3220 PRINT:PRINT:PRINTTAB(27) 
i-24':PRINTTAB(10)i"Hagne5io' 
;TABI25);'No" 

3225 PRINTTAB(27)i"2*":PRINTT 
AB<10);"CJlcio";TAB(25);"Ca" 
3230 PRINTTAB(27)s"2*":PRINTT 
AB(I0l;"Estr/!nc!D , :TAB(251i , S 
r" 

3235PRINTTABI27);'2f:PRINTT 
AB(101i•BBrio , iTAB(25li■Ba , 
3240 PRINTTAB(27); , 2*":PRINTT 
AB(IO) : "RBdio*:TAB(25>; "Ra" 
3245 PRINT:PRINTTAB(3): INPUT" 
DIGITE <RETURN) PARA CONTINUA 
R"!V» 

3250 CLS: NEXT 

3255 PRINT:PR1NT:PRINTTAB(27) 
; , 2*":PRINTTAB110);"Zinco";TA 
B(25)!"Zn" 

3260 PRINTTABI27>;"2*":PRINTT 
AB(10); "CSd«io";TAB(25); "Cd* 
3265 PRINrTAB(27>;"3*":PRINTT 
AB(10]j"Alu«inio"iTAB(25);"Al 

3270 PRINTTABI27)|*3*':PRINTT 

AB(10);"Bi5iutD*|TAB(25);"Bi" 

3275 60T0 3190 

32B0 CLS:ZA»=STRINGt(37,42):Z 

B*=3TRIN6*(2,42> 

3235 PRINTTA8(l)iZA«:PRINTTAB 

(1>;ZBI)TAB(361;ZB»:PRINTTAB( 

HiZB»;TAB(14)i"N>0 NETAIS";T 

ABI36);ZBCPRINTTAB(i);ZBt;TA 

BI36>iZBi:PRINTTAB(l);ZAf 

3290 PRINT:PR1NT:PRINTTAB(26I 

■"♦":PRINTTAB(10);"HidrogImo 

";TAB(25);"H" 

3295 PRINT:PRINTTAB!10);"Hidr 

onio ou"iTAB(28)! , +":PRINTTAB 

(10)i'Hidroxonio'iTAB'.25l;'H 

0":PRINTTAB<26);"3" 

3300 PRlNTTAB(27)i"*":PRINTTA 

B(10l!"Atonio , ;TAB(25)i"NH':P 

RINTTAB(27ii*4" 

3305 GOTO 3190 

3310 REN *« No* varisvel « 

3315 CLS:ZA»=STRINS»(37,42):Z 

Bt=STRINS«l2,42> 



3320 FOR IA=1 TO 5 

3325 PRINTTAB!l);ZAt:PR!NTTAB 

(l!JZB«;TABI361iZBI:PRINnABI 

H;ZBt;TABilJ);'H0X VARIAVEL" 

;TAB(3i)iZBt:PRINTTAB(!);ZB«i 

TABi3a);ZEI:PRINTTAB(liiZA* 

3330 IF !A=1 THEN 3355 

3335 IF IA=2 THEN 3380 

3340 IF IA=3 THEN 3405 

3345 IF IA=4 THEN 3430 

3350 IF IA=5 THEN 3455 

3355 PRINT:PRINT:PSINTTAB(32) 

i"*":PRINTTAB(3);"Cobre Iicup 

rosol'iTABUOIi'Cu" 

3360 PRINTTAB(32i|"+":PRINTTA 

BfJU'Cobre II (cuprico) ";TAB< 

30)|"Cu" 

3365 PRINTTAB(351;"2»":PRINTT 

AB13);"Nercurio Kiercuroso)" 

;TAB(30);'(Hq P:PRINTTAB(33I 

i"2" 

3370 PRINTTAB(32);"2*":PRINTT 

AB(3)i"Hercurio Illnercurico) 

"iTABI30);"Hg" 

3375 PRINT: PRINTTAB (41 : INPUT" 

DIGITE (RETURN) P/ CONTINUAR" 

;G»: CLS: NEXT 

3380 PRINT:PRINT:PRINTTAB1321 

i"t":PRINTTAB(3)i"0uro Hauro 

sol'iTABCOn'Ali" 

3385 PRINTTAB(32);"3»":PRINTT 

AB(3l;"0uro IIKauricol'iTABI 

30);"Au" 

3390 PRINTTAB (321 i"2*":PRINTT 

AB(3);*Ferro IKferrosDl'lTAB 

UOU'Fe" 

3395 PRINTTABI32!i"3t":PRINTr 

AB!3l;"Ferro IIMferricol'iTA 

B(30)i"Fe" 

3400 print:pr!NT:printtab(3): 

input'digite (return) p/ cont 

inuar";bi:cls:next 

3405 print:print:printts8(32i 

i"2*":PRINTTAB(3l;"Croio IKc 

roioso)";TAB(30);"Cr" 

3410 PRINTTAB(32)) , 3+":PRINn 

ABI3)i"Cronio IIKcrMicol'UA 

B(30)i"Cr" 

3415 PRINTTAB(32)i"2*":PRINTT 

AB(3);'Niquei IKniqueloso)'; 

TAB(30)i"Ni" 

3420 PRINTTAB (32) i'3*':PRINTT 

AS (3) ; 'Ni quel III (ni quel ico) " 

;TAB(30);"Ni" 

3425 PRINT:FRINT:PRINTTAB(3): 

INPUT'DIGITE (RETURN) P/ CONT 

INUAR"iGt:CLS:NEXT 

3430 PRINT:PRINT;PRINTTAB(32) 

i'2*":PRINTTAB(3);"Cobalto I 

I (Cobaltosol "iTAB(50) ; "Ca 1 

3435 PRINTTAB(32);"3*":PR1NTT 

AB(3);"Cobalto Illlcobaltico) 

■;TAB(30i;"Co" 

3440 PRINTTABI32);"2*":PRIN7T 

ABI3I; "Chuibo II'plutbo;o)';T 

AB(30ii"Pb" 

3445 PRINTTAB(321;"4*":PRINTT 

AB!3)i"Chutbo IVIplffiibicoPiT 

AB(301I"PB' 
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3450 PRINT:PRINT:PRINTTAB(3>: 

INPUT-OIEITE (RETURN) ?/ CONT 

INUAP"jei:CLS:NEXT 

3455 FR1NT:PRINT:PRINTTABI32I 

i ^flPRIMTTABIS) ! "Estanbo II 

lestano5o)'iTAB(30);"Sn" 

3460 PRIMTTAB t32) ; "4+*:PRINTT 

AB(3);'Estanho IVIestanicoPi 

TAB(30);'Sn" 

3465 PRINTTABI32l;'2*':PRINTT 

SB(3)i*l1anganIs Iilianganoso) 

■■,TAB[30);"Mn' 

3470 PRINTTAB(32);*3*':PRINTT 

AB(3);"Hanganes III";TABf30); 

■Un" 

3475 PR]NTIAB[32);'4t':PRINTI 

AB(3);"Hanganes IV(nanganico) 

'iTABIJOIi'Mn' 

3480 SOTO 3190 

3485 E*= a HIDR0GENI0ANI0NS' : Ifl 

»=STRING*I37,42):ZBJ=STRIN6$! 

2,421 

3490 CLS:PRINTTA8(1);ZA$:PRIN 

TTABdl;ZB$;TAB(36)jZB*:PRIKT 

TABd)iZB»;TA8!ll);E*;TAB(36) 

;ZB$:PRINTTABdliZB»;TAB(34); 

Z8»:PRINTTABd)iZA$ 

3495 KEY OFF 

3500 PRINTTAB(IS) 

i"/:PRIMTTAB(10)!Mll - HS" 

3505 PRINTTABmiiVlPRINTTA 

B(10);*(21 - HSO 'IPRWTTABII 

9)i , 3* 

3510 PRINTTAB<19l;* 'IPRINTTA 

Bd0);"(3) - HS0*:PRINTTABd9 



IS'** 

3515 PRINTTflB(19);'_":PRIKTTA 

BI10)! , (4) - HC0":PRINTTAB«I9 

)i"3" 

3520 PRINTTAB i 19) ; '2_' : PRIHTT 

AB110)|"(5) - HPO':PRINTTABd 
9)|"4" 

3525 PRINTTABI20) ; "_":PRIHTTA 
B(10)i"(6) - H P0":PRINTTAB(1 
7);"2 - iTAB(20);-4- 
3530 PRINT:PRINTTAB(10): INPUT 
"DPCAO ->",m 
3535 IF HIt=M" THEN 3575 
3540 IF HI*=-2" THEN 3605 
3545 IF MWa'5' THEN 3625 
3550 IF HI»="4" THEN 3645 
3555 IF HIJ="5" THEN 3665 
3560 IF HI*="6" THEN 3685 
3565 IF HIKTOR HI*>"6 , THEN 
PR1NTTABI10):INPUT"DPCA0 =>' 
;HIt:G0TO 3565 
3570 GOTO- 3535 

3575 cls:print:print:print:pr 

INTTAP(19>;"_':PRINTTAB(14)i - 

H HS H" 

3580 FRINT:PRINT:PRINTTAB(5)i 

"(MorialhidrogenossuHeto (•) 

ou suHeto (tonolacido ou bis 

sulfeto' 

3585 80SUB 3705 

3590 PRINT:PRINT:PRINTTAB!5): 

INPUT'Beseja algo »ais(S/N)"; 

KJ* 

3595 IF KJ$="S" DR H»=VTHE 



N 3485 

3600 IF KJ«="N" OR K'J$="n"THE 
N 75 

3605 CLS:PRINT:FRINT:PRINT:PR 
INTTAB(1B);"_*:PRINTTAB<I2);- 
it HSO •*":PRINITABU8);*3" 
3610 PRINT:PRINT:PRINTTAB(5H 
" (Nona) hidrogenossul f i to I*) 
ou suliito (tonolacido ou tis 
sulfito" 
3615 SOSUB 3705 
3620 GOTO 3590 

3625 CLS: PRINT: print:print: PR 
IKTTABC 18) ; "_' : PRINTTAB ( 1 2) ! " 
H HSO «" , .PRINTTAB(18)i , 4" 
3630 PR INT: PRINT: PRINTTAB 15) i 
' (Kono)hitirogenossulf ato (*) 
ou sulfate (aonq) Fcido ou bis 
SttlfitO" 
3635 60SUB 3705 
3640 6QT0 3590 

3645 CLS:PRINV.PRINT:PR1HT:PR 
INTTAB(ia) ;".':PRINTTABtt2>;" 
»« HCO •••:PRINTTAB41B);"3" 
3650 PRINT:PRINT:PRINTTAB(5)i 
"(Borio)hidrogfnocarbonato (•) 
ou carbonate («ono)acido ou 
bicarbonato" 
3655 GOSUB 3705 
3660 GOTO 3590 

3665 cls:print:print:print;pr 

!NTTAB(!8);'2/:PRINTTAB(12)i 
■4» HPO »i*:PHINTTAB(18);*4 

3670 PRINT:PRINT:PRINTTAB(5': 
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A MAXBYTE dispoe de uma variadissima linha de jogos 

programados para microcomputadores, e tambem de fitas 

didaticas para aumentar seus conhecimentos. 

E a maior emocao em fitas k-7, para micros padrao MSX, 

voce pode disputar com urn amigo, ou jogar contra seu 

proprio micro. 

Com os jogos e aplicativos da MAXBYTE, voce sera um 

vencedor. 



LANQAMENTO NACIONAL DA MAXBYTE. 

-— EE3 i71flHBVTE m 

Caixa Postal N? 530 - CEP 01 051 

Sao Paulo -S. P. 

Fone: (01 1)223-8643 




"(Hono)hidrogeno(ostato (*) o 
u fosfato- (lono)acido' 
3675 GOSUB 3705 
3480 SOTO 3590 

3685 CLS: PRINT: PRINT: PRINT: PB 
rNTTftfi(19) ;-_":PfiINTTAB(i2);* 
♦» H PD »«":PRINTTAB(16);'2' 
iTMCIfil'T 

3690 PRINT:PRINT:PRINTTAB(5); 
"Di-hidrogeno(osfato («) ou f 
oslato diacido" 
3695 GOSUfi 3705 
3700 BOTO 3590 

3705 PR1HT:PRINT: PRINTTAB II): 
■(») None oficial Ou TUPAC. 
prefixo MONO e dispensavel " 
3710 RETURN 

3715 CLS:EE«=*FOR«ULACAD DE A 
CID0S":ZA»=STRIN6»I37,42I:ZB» 
=STRIN64(2,42) 

3720 PRINTTAB(l)iZA»:PRINT TA 
B(l);ZBt;TAB(34);ZB»:PRINTTAB 
ll);ZBt|TAB(9);EE(;TAB(36);ZB 
*:PRINTTAB(1);ZB*;TAB(361;ZB1 
:PRINTTAB(1);ZA» 
3725 PRINT 

3730 PRINTTAB(9>;*n_';TAB(161 
; " +■ : PRIMTTAB <5 J } "** A";TAB(1 
2);'+";TABU4);'nH':TAB(18)i" 
==>";TAB(22)i"H A »»";TAB(29) 
;"ACID0':PRINTTAB(23);V 

$m PRINI:PfiIMTTA8ms*0s Be 
idos cujo os nones Ui suHix 
05 IDRICO, 0S0 e ICO, sao (or 
mulados cm anions cujo noie 
s tei sulfiKos ETO. I TO e ATO 
respecti vaaente. " 
3740 PRINT:PRINT:PRINT: INPUT" 
Tetle <RETURN> p/ ver exeiplo 
'SAM 
3745 cls:?rint:print:printtab 

112);"** EJEMPLO «" 

3750 PFINT:PRINT;PRINT:PR!NT: 

PRIST 

3755 PRINTTABI5>i'ACID0";TABi 

25:;"fiNiDNS- 

3760 PRINT:PRINT:PR!NTTA3I4'1 

■SuHidricc"iTAB(24);'3ulfeto 

3765 PRINTTAB(4);"Sulfuro5D'i 

TABl24)i"SuWito" 

3770 PRINTTAB(4);'SuHurico"i 

TAB'24);"SuHito' 

3775 PRW:PRINT:PRINT:PR!KT 

: PRINTTAB (OKINPUT'Desej. vol 

tar ao aenu inicial (S/NI'SBN 

i 

37B0 IF BW*="S" OR BU«=*5* TH 

EN 75 

3785 IF BM=V OR BN»="n" TH 

EN CLEAR:60T0 3715 

3790 CLS:EFt="BASES E SA1S*:Z 

A$=STRING»(37,42):ZB»=STRINGt 

(2,42) 

3795 PRINTTABI1)!ZA*:PRINTTAB 

(i);ZBtsTAB(36);ZB»:PRINTTAB( 

l)|ZB$iTAB!13);EF*;TAB(36)iZB 

»:PRINTTAB(l);ZBt;TAB(36)iZB$ 

:PRINTTAB(1);ZA» 



3B00 print:print 

3805 PRINT:PRINTTAB(I0I;M1) 

- BASES":PRINTTAB(10li'(2l - 

SAIS' 

3B10 PRINT:PRINT:PRINTTABI10) 

:INPUT'0PCA0 =>"!HH» 

3B15 IF HH$=T THEN 3825 

3820 IF HH«='2" THEN 3900 

3825 CLS 

3B30 PRINTTAB IB) ;'«« ESTUDD D 

AS BASES **■ 

3835 PRINT;PRINTTAB(l)i"DEFIN 

ICAOISegundo ARRHENIUS)" 

3840 PRINT:PR1NT 

3845 PRINTTAB(3);'Base sao co 

ipostos que ei solucao" 

3850 PRINT'aquosa, libertat c 

oio anions o radical' 

3855 PRINT" QHIHidroxila)' 

3B60 PRINTTABdl);'.' 

3865 PRINTTABIDi'O anion OH 

libertado pela base e chaiad 
o H1DR0XILA ou OIIDRILA.dai o 

(ato de as bases serei chaia 
das taibe* de hidroxila ou al 
calis." 

3870 PR1NT:PRMTAB(15);"5A0 
BASES' 

3875 PRINT:PRINTTAB(2)i"Ca(0H 
) iNH OH iKOH iBalOH) " 
3880 PRINTTAB(8)i'2"iTAB(13)i 
■4-,TfiB(Z9)5*2" 
3885 PRINT:PRINTTAB(3>: INPUT" 
Deseja retornar ao aenu IS/N) 
";8Kt 

3B90 IF BK«='S" OR BK«="s" TH 
EN 75 

3895 IF BK«="N" OR BK«=V TH 
EN 3790 
3900 CLS 

3905 PRINTTABi8!i"« ESTUDO 
DOS SAIS «" 

3910 PRiNT:PRI!<TTAB(l);"CONCE 
ITOS" 

3915 PR!NT:PRINTTAB(3)!"Sai5 
sao coipostos que possuen pel 
o senos um cation diferente d 
e hidrpqenio e pelo *enos u» 
Ciion di'erente de osidrila' 
3920 PRINT:FRINT'Gutra defini 
cao till* 
3'25 PRINT:PRINTTAB(5)i"A!:iD0 

+ BASE ----;■ SAL ♦ ABUA" 
3930 PRINT:PPINTTAB(15);*3ao 
sa;s:' 
3935 PR!NT:PRINTTAB(2);"HC1 + 

NaOH ==> NaCI ♦ H 0" 
3940 PRINTTAB 4 171 J "sal ";TAB(2 
5l;°2':GDTD 3885 
3945 EOTO 75 
3950 CLS:60T0 3955 
3955 X=9:HFJ="SDLUBILIDADE EH 

ABUA":ZZ»=HF»:BOSUB 4315 
3940 PRINT: PRINTTAB40) i "COrlPO 

STOS' J TAB ( 1 3 ) ; 'SOLUVEIS' ; TAB ( 
24)j'INS0LUVElS" 

3965 PRINTlPRINT'Nitratos'iTA 

B(171i" ' 

3970 PRINT'Acetatos'iTABint; 



3975 FRINT'Sulfetos Ull'iTA 

mi);' ■iTAB(29)i' ■ 

3980 PR]NT'Hidroxidos(*2)';TA 

B(17)i' '[TABm);' ■ 

3985 PRlNT'Cloretos H3)";TA 

B(17);' '!TAB(29)i' " 

3990 FRINT'Broietos (»4)';TA 

B(17);* , iTAB(29)|' " 

3995 PRINT'Iodetos H5)"iTA 

B(17);- ';TAB(29);' ' 

4000 PRINT'Sulfatos («6)'!TA 

BU71!" '!TAB(29)i" " 

4005 PRINT'Sais e-ietais":PRI 

NT"alcalinos":PRINT"e de aion 

io"iTABI17l;' ' 

4010 PRINT'Carbonatos(*7)';TA 

Bll7)i' ';TAB(29)i" ' 

4015 PRINT'Fosfatos (*B)"iTA 

B(17)i" -;TflB(29) ; " ' 

4020 PRINT:PRINT"l«)=Obs:"iTA 

B(10):INPUT"Escolha obs: =>'; 

Ml 

4025 IF ARJ<"1'0RAR4>'8'THEN 

BOTO 4020 

4030 GOTO 4075 

4035 CLS:PRINTTAB(24ii'2_":PR 

INTTAB(10)i"« 3ULFET0S (S ) 
«t" 

4040 PRINT:PR1NT:PRINTTAB(4); 

"Sao soluveis os sulfetos dos 
netais alcalinDS b akalinos 
terrosos e de aiionio' 

4045 PRlNT:PRINT:PRINTTABI5)i 
"EJEHPLOS" 

4050 PR1NT:PRINT:PRINTTAB(B)" 

Na S jK S ;Ca5 !BaS ! !NH ) S" 

4055 PRINTTABilO);'2";TAB(15) 
i"2";TAB(32);*4 , iTAB(34); , 2" 

4060 PRINI:PRINTTAB(5): INPUT' 

Deseja algo iiis (S/N) ";K6» 

4065 IF KG»="S" OR K6»=V TH 

E'l 3950 

«70 IF K6«="N" OR KG»=V TH 

EN 75 

4075 IF AR«= , 1" THEN 4035 

4080 IF AR»='2' THEN 4115 

4085 IF AR«="3" THEN 4140 

4090 IF ARi='4' THEN 4170 

4095 IF ARJ="5" THEN 41B5 

4100 IF AR»='6' THEN 4250 

4105 IF AR»="7" THEN 4215 

4110 IF AR*="8" THEN 4275 

4115 CLS:PRINTTAB(26)i'.':PRI 

NTTAB(9);"«« HIDR/JIDOS (OH 

) ♦«" 

4120 PRINT:PRINT:PRINTTAB(B)| 

'Sao soluveis os hidroxidos d 

os netais akalinos e alcali 

no terrosos e de anonio' 

4125 FRINT:PRINT:PRINTTABI5); 

"Exe«plos':PRINT:PRINT:PRINTT 

AB(4);"NaOH ikOH ;Ca(0H) |Ba 

(OH) JNH OH" 

4130 PRINTTABI21)i'2'iTA8(30l 

i'2"!TAB(35);M' 

4135 GOTO 4060 

4140 CLS:PRINTTAB(261i'/:PRI 

NTTAB(ll);"" CLORETOS (CI ) 
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4145 PRINT: PRINT: PRINTTAB (5) ; 

'Sao insoluveis as principals 
excessoes da, regra" 
4150 PRINT:FRINTTAB43) I "flgCl 

;PbCl ;Hg CI " 

4155 PRINTTAB(18);"2"iTAB!23) 

!"2"iTAB(26)i"2 , :G0T04060 

4160 PRINT:PRINTTAB(3);"AgBr 

iPbBr ; Hg Br " 

4165 PRINTTAB (18); "2'i TAB (23) 

;"2";TAB(26);'2":60T0 4060 

4170 cls:printtab(26);". , :pri 

NTTABlll) ;"»* BR0BET0S (Br ) 

4175 PRINT:PRINT:PRINTTAB(5)i 
"Sao insoluveis as principals 
excessoes da regra" 
4180 PR!NT:60TD 4160 
4185 CLS:PRINTTAB(25);' ":PRI 
NTTABdDj"** IODETOS (I I «» 



4240 PRINTTfiB(9);"2";TAB(i2)j 

■3-;tab<16);*2";tab(19};"3*;t 

AB(24l;"4";TAB(26);*2";TABI29 

)i"3" 

4245 60T0 4060 

4250 CLS: PRINTTAB (23) ; "2_ " 

4255 PRINTTABI8);'** SULFATOS 

(SO > «■ 
4260 PRINTTAB 123); "4" 
4265 PRINT:PRINT:PRINTTAB(5); 
'Sao insoluveis as principals 

excessoes da regra:" 
4270 GOTO 4205 
4275 CLS:PRINTTAB(23)!"3." 
4280 PRINTTAB(8);'« FOSFATOS 

(PO ) ♦»• 
4285 FRINTTABraiiM 1 
4290 PRINT:PRINT:PRINTTAB(41! 
"Sao soluveis os fosfatos dos 

letais alcalinos e de aiionio 



4340 PLAY"B-2AB-D5C204FFF4.EF 

4G2.G2" 

4345 PLAVL4CCF6A2LBFED4.B-8B 

-4" 

4350 PLAVB-2L8B-B-A4.GF4E4.F 

G4F2." 

4355 RETURN 



4190 PRINT:PRINTTA3(3C"AgI i 

Pbl ;Hg I ;BiI " 

4195 PRlNTTAB(ll)i , 2 , ;TABI16) 

;"2 , iTAB(21)i , 2"iTAB(23)i , 2'i 

TAB(29li , 3" 

4200 GOTO 4060 

4205 PRINT:PRINTTAB(8)i"CaS0 

iSrSO ;BaS0 iPbSO " 
4210 PRINTTAB(12)i , 4 , iTAB(19) 
i"4";TAB(26)i , 4"TAB(33)i , 4 , :G 
0T0 4060 

4215 CLS:PRINTTAB(2b);"2/ 
4220 PRINTTAB(9)i"" CARBONAT 
OS (CO ) **■ 
4225 PRINTTAB (26) i'Z' 
4230 PRlNT:PRINT:PRINTTAB(4)i 
"Sao soluveis os carbonatas d 
os netais alcalinos e de anon 
io" 

4235 print:print:printtabi51! 
■exehplos":print:print:printt 

ABI7);'Na CO |K CO ;(NH ) C 
• 



4295 print: print: printtab(5) ; 

"EXEIiplos , :print:print:printt 

AB(7);"Na PO |K PO i INH ) P 

" 

4300 PRINTTABI9);"3";TAB(12); 

"4 , ;TAB(16)i , 3';TAB(19);"4";T 

AB(25);"4";TAB(27);"3 , iTAB(30 

);"4" 

4305 PRINTTAB(14)i , 4 , iTAB(20) 

i , 3 n iTAB(24)i , 2"iTABI27); , 4" 

4310 GOTO 4060 

4315 ZA«=STRIN6*I37,42):ZB$=S 

TRING$(2,42) 

4320 PRINTTAB ( I) ; ZA*: PRINTTAB 

(l);ZB»iTAB(36);ZBi:PRINTTAB( 

l);ZBi;TAB(X);ZZ$;TAB(36);ZBf 

:PRINTTABIl);ZB*iTAB(36);ZBi: 

PRINTTAB! 1);ZA« 

4325 RETURN 

4330 PLAVT128" 

4335 PLAV04L4CCF6L2AL8FED4.B 

-B-4' 
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A ESCOLHA DE 
UMA LINGUAGEM 



Luis Peres Azevedo 



Se voce esta cscrevendo 
programas, voce devera 
querer fazer o melhor que 
puder. 

Se alem disto voce 
planeja ganhar dinheiro 
com programas que 
acrcdita serem liteis para 
as pessoas em geral, ha 
que considerar em que 
linguagem trabalhar, qual a 
maquina e qual o sistema 
operacional masi indicado. 

Algumas vezes estes 
fatores sao conflitantes. A 
linguagem Assembley 
produz um programa as 
mais rapidas aplicacoes, 
mas se voce for tentar 
escrever um programa 
complexo nesta 
linguagem, logo percebera 
que nao sera simples 
termina-lo. 

Um bom sistema 
operacional pode 
aumentar a velocidade de 
desenvolvimento, porem, 
nem sempre o melhor 
sistema para 

desenvolvimento e o mais 
popular. 

Do ponto de vista 
comercial, nao faz sentido 
escrever programas para 
sistemas pouco populares. 
Para complicar, nem 
sempre o melhor sistema 
operacional e a melhor 
linguagem sao 
compatfveis. 

Geralmente para 
balancear estes fatores, 
alguns programadores 
escolhem a melhor 
linguagem, para o mais 
popular sistema 
operacional existente. 



Neste artigo tentarei 
definir alguns criterios 
para selecionar uma 
linguagem, entre as 
populares Assembley, 
Basic, Pascal e C. 

Criterios de Velocidade 
Para escolher uma 
linguagem, primeiro 
determine as caracteristicas 
de scu programa. Se a 
velocidade e critica, a 
linguagem Assembley e a 
mais indicada. Se deve ser 
o menor possivel, 
tambem. 

Alguns programas 
podem parecer necessitar 
de Assembly, porem na 
realidade nao. E o caso das 
aplicacoes matematicas, 
em que uma linguagem 
compilada tera melhor 
desempenho. 

A velocidade nao e 
tudo, entretanto. 
Programas em que se gasta 
muito tempo esperando 
pelo operador, e 
comparativamente pouco 
tempo calculando e 
processando as 
informacoes, nao serao 
significativamente 
melhorados pelo uso da 
Assembly Language. 

O mesmo e verdade 
para programas que 
gastem muito tempo 
mclhorado com acesso a 
disco. O acesso a disco 
nao podera ser melhorado 
com a linguagem, pois 
depende de fatores 
externos ao programa. 



Um exemplo classico e 
o programa desenhado 
para imprimir um 
relatdrio. Se o programa 
envia dados mais 
rapidamente do que a 
impressora e capaz de 
absorver, mais celocidade 
sera desnecessaria. 

Falsas Aparencias 
Freqiientemente os 
programadores escrevem 
aplicacoes para as quais 
uma determinada 
linguagem parece 
claramente superior. 

Considere um 
programa gerador de 
relatrorios capaz de enviar 
a impressora 300 
caracteres por segundo. 
Suponha tambem que 
cada pagina contem 6 
linhas em branco e 10 
linhas de informacao, 
como titulos e cabecalhos 
para os quais nao se perde 
tempo em calculos. As 
outras 50 linhas de uma 
pagina contem informacao 
que nessita de calculo. 

Se a linguagem A pode 
calcular a informacao e 
envia-la a impressora a 250 
cps, e a linguagem B pode 
faze-lo a 1000 cps, entao a 
linguagem B sera mais 
rapida que a linguagem A, 
que nao e capaz de 
imprimir toda a 
velocidade a impressora. 
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Espera-se uma diferenca 
de velocidade de no 
minimo 50cps. Se a 
linguagem A cnvia 1300 
canicteres de informacao 
que nao demanda 
processamento a 3000 
cps, e a linguagem B envia 
a 5000 cps, a linguagem B 
parecera ter vantagem. 

Para os nossos 
propositos, assuma que as 
linhas em branco tomam 
0.5 segundos para serem 
impressas na mesma 
velocidade. Muitas 
impressoras tern um buffer 
de no mi'nimo virios 
milharcs de caracteres. A 
linguagem B enche o 
buffer, enquanto a 
impressoa e obrigada a 
trabalhar a plena 
velocidade. Entretanto, a 
linguagem B leva 26 
segundos (60 linhas de 
130 caracteres/300cps) 
para imprimir os dados 
em toda a pagina e 0.3 
segundos (6 linhas em 
branco *0.5 segundos) 
para imprimir as linhas em 
branco. No total sao gastos 
26.3 segundos. 

A linguagem A, por 
outro lado, leva 0.43 
segundos (1300 
caracteres/3000cps) para 
enviar as informcoes 
fixadas para a imprcssora e 
26 segundos (50 linhas 
* 130 caracteres por linha 
impressora e 26 segundos 
(50 linhas * 130 caracteres 
por linha/250cps) para 
enviar os dados que 
necessitam de caculo. 



Adicionando 0.3 segundos 
para as linhas em branco, 
o tempo total para 
impressao na linguagem A 
e de 26,73 segundos. Para 
imprimir um relatorio de 
100 paginas, a linguagem 
A toma somente 43 
segundos a mais que a 
linguagem B — o que nao 
e uma grande diferenca. 

Se a impressora nao 
tiver buffer, a linguagem B 
ira tambem imprimir na 
velocidade de 300cps. O 
tempo total requerido para 
imprimir um relatorio de 
100 paginas sera o mesmo 
4.33 segundos (1300 
caracteres/300cps), a 
informacao calculada em 
26 segundos e as linhas 
em branco em 0.3 
segundos. O tempo total 
requerido sera de 30.63 
segundos. Para um 
relatorio de 100 paginas, a 
diferenca sera de 6,5 
minutos. 

Certamente, a 
linguagem B ira terminar o 
trabalho mais rapidamente 
numa impressora rapida, 
Seu computador tambem 
podera finalizar o trabalho 
mais rapidamente se voce 
tiver um grande buffer na 
impressora — 512K ou 
mais, para colocar cntre 
elc e a impressora. A 7800 
caracteres por pagina, um 
buffer de 512K pode 
armazenar 65 paginas de 
seu relatorio. 

O computador sera 
entao liberado mais 
rapidamente para outras 
aplicacoes. 



Outro ponto 
interessante e o do accsso 
a disco. Considere dois 
programas escrevendo 
dados indenticos num 
arquivo em disco. 
Programa A envia os 
dados a 10000 cps; 
programa B envia os 
dados a 100000 cps. O 
programa B e mais rapido 
nao?. Nao 

necessariamente. Se o 
sistema operacional so 
aceita os dados a 10000 
cps, de nada adiantara o 
programa B ser mais 
rapido. A unica maneira de 
trabalhar mais rapido sera 
mudar o sistema 
operacional, se isto for 
possivel. 

Sobre Assembly 

Que linguagem utilizar se 
voce nao necessita da 
rapidez e flexibilidade da 
Assembly? Se o Basic 
interpretado nao e rapido 
o suficiente para suas 
nccessidades, tente o Basic 
compilado. 

Os programas 
compilados nunca rodam 
mais lentamente que os 
interpretados, e 
geralmente sao 150 vezes 
mais rapidos. 

No caso do MSX, 
existem ainda algumas 
limatacoes no compilador 
BASIC da Microsoft, que o 
impedem de compilar as 
fungoes graficas, so 
operando em modo texto. 



Ja estao no entanto 
disponiveLs varios 
compiladores para os 
MSX, como FORTRAN, C, 
PASCAL, etc.. em fita e em 
disco, que abrem para o 
usuario um grande 
horizonte e tornam 
necessaria uma escolha 
correta da linguagem para 
desenvolvimento. 

Em geral a compilacao 
produz os maiores ganhos 
de tempo para programas 
em que se gasta pouco 
tempo esperando pela 
entrada de dados, poucas 
leituras em disco, e que 
nao imprimem grandes 
quantidades de 
informacao. 

Os programas 
compilados que usam 
aritmetica real sao tres 
vezes mais rapidos que 
programas interpretados, e 
em aritmatica inteira eles 
podem ser de 30 a 150 
vezes mais rapidos. 

Se o BASIC interpretado 
nao tiver os comandos 
que voce necessitar, ha 
duas alterna'ivas: 

— Construir rotinas 
auxiliares em Assembly, ou 
usar uma outra linguagem. 
Muitos programadores 
reclamam que o BASIC 
(compilado ou nao) 6 
muito mais lento que o 
PASCAL ou C. 

Nao c bem assim: 
Turbo Pascal nao e mais 
rapido que o BASIC 
compilado, que e tao 
rapido quanto FORTRAN 
ou C. 
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Para algumas 
aplicacoes, outras 
linguagens oferecem mais 
vantageas que o BASIC. A 
linguagem Ceo Turbo 
Pascal por exemplo, 
parecem manipular strings 
mais rapidamcnte que o 
BASIC compilado. 

Em Turbo Pascal, 
strings estao limitadas a 
255 bytes. 

Em BASIC compilado 
voce pode dimensionar 
um array de 1000 strings, 
em que cada um pode ter 
ate 32767 caracteres de 
comprimento. Sob MS- 
DOS, este array ira ocupar 
ao ser criado, 4(X)0 bytes. 
Cada elemento ira usar 2 
bytes, mais o 
comprimento da string, 
quando aJgo e 
armazenado. Se todas as 
1000 strings contiverem 
dados, isto significam 
6000 bytes. 

Em Pascal ou C, vocfi 
tern duas escolhas: 
declarar o comprimento 
de cada uma das strings e 
usar toda a mem6ria, 
necessitando ou nao de 
todo o espaco: 

Ou declarar um array 
de 1000 vetores para uma 
area de memoria onde as 
strings estejam 
armazenadas. Se voce 



escolber a primeira 
hipotese, gastara 255000 
bytes (255*1000). Se 
escolher a segunda, 
podera manipular apenas a 
area dc memoria 
necessaria. 

Vfcmos entao que em 
casos criticos de alocacao 
de memoria, o BASIC 
pode ser interessante. 

A linguagem C e 
amelhor linguagem, se 
voce quiser assegurar que 
seus sistemas rodem no 
sistema operacional UNIX. 
\fersoes de BASIC que 
rodam em sistemas UNIX 
nao sao compatfveis com 
o BASIC Microsoft, mas 
todas as versoes de C sao 
transportaveis de micros 
para computadores 
maiores. 

A Pascal por outro lado, 
nao e uma linguagem 
transportavel. Todas as 
versoes de Pascal tern 
extensoes, que nao sao 
compau'veis em todos os 
computadores. 

Em 
microcomputadores, 
Turbo Pascal pode ser 
considerada padrao na 
linguagem. Ha porem a 
UCSD Pascal, e poucos 
mainframes e minis rodam 
Turbo Pascal ou UCSD 
Pascal. 

Certamente, alguns 
programadores que 
tenham vindo de 
mainframes gostarao de 
trabalhar em FORTRAN ou 
COBOL. Estas linguagens 
tern padroes bem 
definidos, e existem bons 
computadores para elas. 



Para algumas aplicacoes 
a FORTRAN e a mais 
indicada: ela e por 
exemplo a unica 
linguagem que admite 
numeros complexos. 

E portanto a linguagem 
natural para engenhciros, 
em casos de simulacao de 
fenomenos fisicos, por 
exemplo. 

Cobol e uma linguagem 
em que se escreve muito, 
apesar de ser de 
aprendizado relativamente 
facil, porem isto implica 
em grandes gastos de 
memoria e uma grande 
lentidao na operacao Nao 
e boa tambem para 
execucao de complexas 
operacoes matematicas. 

Uma das melhores 
linguagens disponiveis 
hoje pe a APL, otima para 
trabalhos de planilhas 
eletrdnicas. O unico 
problema e que ela e uma 
linguagem bastantc cara, 
ou seja seu compilador e 
vendido a algumas 
centenas de dolares. 

Ha outros fatores a 
considerar ao escolher 
uma linguagem, como a 
facilidade de manutencao, 
o numero de 
programadores que 
trabaiham naquela 
linguagem e que poderao 
colaborar na montagem 
do sistema, a facilidade de 
aprendizado, etc., porem 
acho que o BASIC e a 



linguagem de melhor 
rendimento para nossos 
microcomputadores, e e 
por Lsto que seu uso e 
amplamcnte difundido. E 
uma linguagem de kugo 
espectro, facil aprendizado. 
e se bem documentada, a 
manutencao nao e 
problematica. 

E sempre bom 
entretanto o leitor ter uma 
visao gcral de todas as 
linguagens disponiveis, e 
comecar a verificar o que 
elas tern de comum entrc 
si, que sao as estruturas 
basicas de programacao. 
Com isto, como os 
sistemas scrao montados 
futuramente em linguagem 
natural, ou voce mesmo 
ira criar sua propria 
linguagem de 

programacao, se criarao no 
leitor metodos de 
raciocinio que facilitarao o 
trabalho. 

O objetivo deste artigo 
e mostrar que com a gama 
de linguagens disponiveis, 
o leitor deve cada vez mais 
estudar das vantagens e 
desvantagens de cada uma 
delas. 
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Como apresentado cm artigo anterior 
(vcr MSX MICRO n? 8 "Classificador de 
arquivos"), embora eu estcja desenvol- 
vendo alguns utilitarios cm assembler, 
que tern auxiliado-me bastante como 
subrotinas ou mesmo tornando-se pro- 
gramas completos, coasidero mais con- 
viniente apresenta-los aqui como ver- 
soes em BASIC, que tern urn alcanee e 
entendimento bem mais amplo por 
parte dos leitorcs (embora nao exclua 
a possibilidade dc apresentar vcrsoes 
ruturas em assembler). Os leitores que 
dispuserem dos recursos de software e 
entenderem o assembler do Z80, po- 
dem facilmente, se necessario, analisa- 
rcm esses utilitarios cm BASIC e rees- 
creverem versoes em assembler. 

Este artigo apresenta um programa 
em BASIC, que le de um disquete o 1 ? 
setor de um arquivo cujo nome e da- 
do pelo usuario, determina se este ar- 
quivo foi gravado pelo comando BSA- 
VE, ou seja: e um arquivo binario, po- 
dendo ou nao ser um programa. Caso 
seja um arquivo binario, e determina- 
do c apresentado o endereco inicial de 
carregamento, endereco final de carre- 
gamento, endereco dc execucao (para 
o caso de ser um programa sc saber on- 
de inicia a sua execucao) c o tamanho 
do arquivo em bytes. Esses dados sao 
apresentados no sistcma numerico de- 
cimal c hexadecimal. 

Utilizaqao 

Eu poderia escrever neste item varias 
paginas sobre possiveis utilizacoes do 
programa apresentado neste artigo. Po- 
rem o proprio leitor se dara conta da 
necessidade de aplicagao deste utilita- 
rio no dia a dia da utilizacao do seu mi- 
cro computador. Apresentarei, a seguir, 
apenas alguns exemplos a ti'tulo de es- 
clarecimento. 



Para os programas gravados em cas- 
sete com o comando BSAVE e comum, 
e aconselhavel, mantermos anoiados os 
enderecos inicial, final e de execucao 
desses programas. Se nao fizermos is- 
so, a cada vez que quizermos saber es- 
ses enderecos dc um dctcrminado pro- 
grama temos que: quizermos saber es- 
ses enderecos dc um determinado pro- 
grama temos que: 

a) carregar um leitor de enderecos; 

b) localizar na fita o programa deseja- 
do; 

c) executar o leitor de enderecos. 
Isso nao e uma tarela ardua, mas e de- 
morada quando executada com o gra- 
vador cassete. 

Para programas gravados em disque- 
tes com o comando BSAVE a situacao 
e diferente, pols os tempos de acesso, 
localiza^ao e carregamento sao mini- 
mos e, em vista disso, nao precisamos 
ficar anotando cm papel esses endere- 
cos. A hora que os quisermos basta exe- 
cutar o utilitario apresentado neste ar- 
tigo. 

Uma outra aplicacao nao menos co- 
mum e para programadores em BASIC 
que possuem determinados subrotinas 
em assembler, ou feitas por ele, ou 
compradas, ou adquiridas de colegas e, 
por um motivo ou outro, nao sabem 
onde essas subrotinas sao carregadas na 
memoria e o seu endcrego dc execu- 
yao, necessitando porem limitar o espa- 
co reservado para o BASIC a fim de que 
haja intcrferencia entre o programa BA- 
SIC e a subrotina em assembler. Execu- 
te esse utlitario e seus problemas esta- 
rao resolvidos (cuidado com subrotinas 
mal feitas que nao reservam o seu pro- 
prio espaco de execucao e interferem 
no BASIC). 

Um terceiro exemplo de utilizacao 
nao menos comum, e a analise de pro- 
gramas em assembler com um Moni- 
tor-desassembler. Suponha que voce 
comprou aquele jogo dos seus sonhos, 
ou aquele copiador de programas e 
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quer analisar como os programadores 
mais experimentados fazcm seus pro- 
gramas. Depois de duas ou trcs tcntati- 
vas de carregar o Monitor-desassembler 
e o programa comprado voce descon- 
fia que um carrega em cima do outro. 
Nao dcvcria ter perdido tanto tempo; 
bastava rodar o utilitario aqui apreserv 
tado e vcrificar onde carrega o progra- 
ma que voce comprou; apos isso rea- 
locar o seu Monitor-assembler para 
uma area que nao interferisse com o 
programa a examinar e tudo estaria re- 
solvido. LJtil, nao? 

Comentarios sobre o 
desenvolvimento do programa 

A minha maior dificuldade para fazer 
este utilitario foi a de descobrir como 
os enderecos inicial, final e de execu- 
cao de um arquivo binario sao armaze- 
nados no disquette, ja que nao ha, pe- 
lo mcnos que eu tenha conhecimento, 
nenhuma publicacao que explique is- 
so. 

Gastei cerca de uma semana, traba- 
lhando 3 horas por dia e mais um sa- 
bado inteiro para descobrir como sao 
arquivados esses enderecos no disquet- 
te. Para que o leitor, caso necessite des- 
ses dados para desenvolver seus pro- 
prios programas, nao ter o trabalho que 
eu tive, aqui vaj o "pulo do gato". 

O sistema operacional de micro ao 
carregar com o comando BLOAD um 
arquivo binario gravado com o coman- 
do BSAVE, precisa dos seguintes dados: 

1 — Os enderegos de carregamento 
(inicial, final e de execucao se for um 
programa); 

2 — Saber se e um arquivo binario e 
nao um outro tipo, como por exemplo: 
um programa em BASIC, um arquivo 
ASCII, etc. 

Esses dados sao obtidos da seguinte 

forma: 

a) Enderecos de carregamento 

Sempre que gravamos arquivos bina- 

rios, isto e, usamos o comando BSAVE, 



temos que dar mais 3 paramentros ao 
comando, sao eles: 
EI — Endereco inicial do bloco da me- 
moria a ser gravado; 
EF — Endereco final do bloco da me- 
moria a ser gravado; 
EX — Endereco de execucao para o ca- 
so do bloco gravado ser um programa 
em codigo binario. Entao temos que 
fornecer o endereco da instrucao ini- 
caJ de execugao do programa, pois 
quando dermos o comando BLOAD 
"nome do programa", R o programa ira 
eomecar a executar as instrucoes a par- 
tir desse endereco. 
Assim, o comando completo e: 
BSAVE "nome do arquivo", EI, EF, EX. 

Caso o seu arquivo nao seja um pro- 
gram ou endereco de execucao do pro- 
grama seja igual ao endereco inicial, is- 
to e: EX = EI, nao precisamos colocar 
o parametro EX, pois o sistema assume 
que EX = EI. 
b) — Tipo de arquivo 
Ao receber o comando BSAVE o siste- 
ma operacional grava no disquette, lo- 
go como primeiro byte, o valor 254 de- 
cimal (FE em hexadecimal) e, ao ler es- 
se arquivo com o comando BLOAD ele 
testa esse byte; se for 254 entao ele sa- 
be que e um arquivo binario. Simples 
nao? 

Quando damos o comando BSAVE 
"nome do arquivo", EI, EF, EX, o siste- 
ma operacional, antes de gravar o arqui- 
vo binario, grava no infcio do primei- 
ro setor do disquete que pertencera ao 
arquivo, sete bytes do primeiro setor do 
disquete que contdm todas as informa- 
coes que ele nccessita para carregar o 
arquivo com o comando BLOAD. Es- 
ses 7 bytes sao os seguintes: 



1 ? byte — Tipo do arquivo (valor 254 
decimal = FE hexadecimal); 
2? e 3? bytes — endereco inicial de 
carregamento; 

4? e 5? bytes — Endereco final de car- 
regamento; 

6? e 7? bytes — Enderego de execu- 
cao. 

Do 8? byte em diante estara o arqui- 
vo binario propriamente dito. 

Cada 2 bytes dos enderecos inicial, 
final e de execucao sao gravados com 
o byte menos significativo primeiro, se- 
guido do byte mais significativo. para 
que possam ser operados mais conve- 
nicntemente pelo microprocessador 
Z80. Para os leitores que ainda nao tern 
bons conhecimentos em assembler o 
exemplo a seguir esclarece como essa 
gravacao e feita. 

Suponha que gravamos um jogo 
programado em assembler que tern co- 
mo nome MEUGAME; endereco inicial 
de carregamento o valor 36864 (9000 
hex, o hex doravante identifica valores 
no sistema numerico hexadecimal); en- 
derego final de carregamento o valor 
53247 (CFFF hex); endereco de execu- 
cao o valor 40976 (A010 hex); isto e, da- 
mos o comando: 

BSAVE "MEUGAME", 36864, 53247, 
40976 ou 

BSAVE "MEUGAME", &H9000, 
&HCFFF, &HA010 

O sistema operacional gravara os pri- 
meiros sete bytes do arquivo MEUGA- 
ME como sendo: 

Bytes: 1? 2?> 3? 4? 5? 6? 
7? 8?... 

FE 00 90 FF CF 10 
AO arquivo... 

Valor decimal = 254 
Endereco inicial 
de carregamento. 
Valor decimal = 36864 
Valor hexadecimal = 9000 
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Endereco final 90 

de carregamento. 100 

Vfclor decimal = 53247 110 

Valor hexadecimal = CFFF 

120 
Endereco de exccucao. 
Valor decimal = 40976 130 

Valor hexadecimal = A010 140 
lima outra obscrvacao e que se 
dcrmos o comando DIR no arqnivo 150 
MEUGAME ele apresentara um 
lamanho de 16391 bytes (4007 hex) 160 
e, ao rodarmos o programa deste 
artigo ele dara o tamanho do arquivo 170 
como sendo 16384 bytes (4000 hex), 
isto e, sete bytes a menos. E que o 180 

comando D1K considera os bytes 
gravados no disquete e o programa 190 
aqui apresentado considera os bytes 
gravados na memoria, sendo que os 200 
setes bytes acima nao sao carregados 210 
na memoria junto com o arquivo 
binario. 220 

Ok. Vamos ao programa. 

230 
programa 240 

O programa e auto explicativo 
atraves das suas telas. Transcreva-o 250 

com atencao. 260 

A rotina de tratamento de erros 270 

preve apenas os erros mais comuns 
que sao "ARQUIVO 1NEX1STENTE". 280 
"NOME LNCORRETO DE 290 

ARQUIVO", "DRIVE INEXISTENTE". 300 
Sc quizcr prcver algum outro erro 
basta atualizar a subrotina 
TRATAMENTO DE ERROS (\fer 310 

listagem do programa). 320 

A versao aqui apresentada foi 
testada e nao apresentou "bugs". 
Ate a proximal Mantenha contato! 330 

10 



20 


"••CONFIGURAR*** 340 


30 


' 


40 


DEFINTI-M 350 


50 


J = PEEK (& 1 1 1 ■' 3 BO ) : K = PEEK 




(&HFCAF):L=(PEEK(&HF3DE) 


60 


SCRREN 0.KEY OFF:WIDTH 37 


70 


» 


80 


'* • * TELA 1NICIAL ' ' ' 
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CLS 

PRINT ' PESQUISADOR DF. 

ENDEREODS 

PRINT:PRINT:PRINT "Programa 

elaborado por J.S.MASSARANI." 

PRINTPRINT "Versao 1.0" 

PRINT "Data: 22 de Janeiro de 

1987" 

PRINT:PRINT "Este programa 

pode ser utilizado 

PRINT "para qualquer flnalida- 

de que se" 

PRINT "deseje, exceto aquelas 

que envoi-" 

PRINT "vam aspectos comer- 

ciais." 

PRINT:PRINT "PRESTIGIE NOS- 

SOSTRABALHOS." 

PRINTPRINT "Selecione:" 

PRINT:PRINTSPC(3);'T = DE- 

TERMINAR ENDERECOS" 

PRINTPRINT SPC (3); "2 = RE- 

TORNAR AO BAfIC" 

A$ = INKEYS:IF A J = "THEN 2 30 

IF(A$< > "1")AND(A$< 

> "2") THEN 100 

IFA$ = "2" THEN 1210 

* * * TELA DO PESQUISA- 
DOR * * * 

CLS 

PRINT "♦••« PESQUISA- 
DOR DE ENDERECOS 

PRINT:PRINT:PRINT 
PRINT "ENTRE O NOME 
DO ARQUIVO NA FOR- 
MA:" 

PRINTPRINT "nome. 
extensao" 

PRINT "Para arquivo no 
drive corrente. 
PRINT:PRINT:PRINT "OU 
NA FORMA':" 



360 
370 
380 



390 
400 

410 
420 
430 
440 
450 
460 
470 
480 

490 
500 
510 
520 

530 
540 
550 
560 

570 
580 
590 
600 
610 
620 

630 
640 

650 
660 
670 



680 
690 
700 
710 



PRINTPRINT "drivemo- 
me extensao" 
PRINT "Para arquivos em 
outro drive. 

LOCATE 0,20:PRINT "EN- 
TRE + PARA RETORNAR 
AO BASIC." 
LOCATE 0,15 

INPUT "QUAL ARQUIVO"; 
FS 
IFF$= " + "THEN 1210 

1 

'* * * PESQUISADOR * * * 

» 

ON ERROR GO TO 940 

OPEN FS FOR INPUT A$ 1 

M$= INPUT! (1,1) 

IF ASC(MJ) < > 254 

THEN 1080 

XS = INPUTS (6,1) 

CLOSE 1 

'*** CALCULA ENDERE- 
COS * * * 

FOR 1 = 1 TO 6 

M(I)= ASC (MIDS (XS. I,l())| 

A$ (I) = RIGHTS ("0" + 

HEX$ (M(I)), 2) 

NEXT 

EI = M(2) *256 + M(l) 

EF = M(4) *256 + M(3) 

EX = M(6) *256 + M(5) 

M(0) = (EF-EI0+1 

AS(0) =RIGTH$ 

("0000" + HEX$(M(0)),4) 

'*** TELA DE ENDERE- 
COS * * * 

CLS 

PRINT "* * * * PESQUISA- 
DOR DE ENDERECOS 

PRINT:PRINT 

PRINT "ARQUIVO: "; FS 

PRINTPRINT 

SPC (22); "HEXA"; SPC (4); 

"DECIM" 



720 PRINT 

730 PRINT "ENDERECO INI- 

CIAL"; SPC (6) 
740 PRINT A$ (2)+A$(l); 

SPC(3); EI 
750 PRINT 

760 PRINT "ENDERECO FI- 
NAL"; SPC (8) 
770 PRINT A J (4) + AJ (3); 

SPC(3); EF 
780 PRINT 
790 PRINT "TAMANHO DO 

ARQUIVO" SPC (4) 
800 PRINT A$ (0); SPC (3); 

M(0) 
810 PRINT 
820 PRINT "ENDEREgO DE 

EXECUCAO"; SPC (2) 
830 PRINTA*(6) + A$(5); 

SPC(3); EX 
840 PRINT: PRINTPRINT "Se- 

lecione:" 
850 PRINTPRINT " 1 = PES- 

QUISAR OUTRO 

ARQUIVO" 
860 PRINTPRINT " 2 = RE- 

TORNAR AO BASIC" 
870 A$ = INKEYS:IF AJ = " " 

THEN 870 
880 IF(A$ < > "1") AND (AS < 

> "2") THEN 660 
890 IFA$ = "2" THEN 1210 
900 GO TO 290 
910 ' 
920 '* * * TRATAMENTO DE ER- 

ROS * * * 
930 ' 

940 CLOSE 1 
950 IF (ERR < > 53) AND 

(ERR < > 56) AND (ERR 
< > 62) THEN 1250 
960 CLS 
970 PRINT "*•«* PESQUISA- 

DOR DE ENDERE^OS 

980 LOCATE 7,10 
990 IF ERR = 5 3 THEN PRINT 
"ARQUIVO INEXISTENTE" 



1000 IF ERR= 56 THEN PRINT 

"NOME INCORRETO DE 

ARQUIVO" 
1010 IF ERR = 62 THEN PRINT 

"DRIVE INEXISTENTE" 
1020 LOCATE 0,20:PRINT 

"APERTE QUALQUER TE- 

CLA... " 
1030 KS = INKEY*:IFK$ = "" 

THEN 1030 
1040 RESUME 290 

1050 '* * * TELA DE ARQUIVOS 
1060 NAO BINARIOS * * * 
1070 ' 

1080 CLOSE 1 
1090 CLS 

1100 PRINT "• • • « PESQUISA- 
DOR DE ENDERE^OS 

1110 LOCATE 5,10 

1120 PRINT "O ARQUIVO NAO 

FOI GRAVADO" 
1130 LOCATE 5,1.2 
1140 PRINT "COM O BSAVE DO 

DISK-BASIC" 
1150 LOCATE 0,20:PRINT 

"APERTE QUALQUER TE- 

CLA..." 
1160 K$ = INKEY$:IFK$= "" 

THEN 1160 
1170 GO TO 290 
1180 ' 

1190 '*** SAIDA •** 
1200 ' 
1210 CLS 

1220 SCREEN K: WIDTH J 
1230 IF L< > O THEN KEY ON 
1240 CLEAR 

1250 ON ERROR GO TO 
1260 END 



Jorge Sergio Massarani e engenheiro 
mecanico industrial, chefe da 
divisdo de sistema de Certifica^do e 
responsdvel pela area de 
informdtica do Departamento de 
Normalizaqao e Qualidade da 
F.letrobrds. 
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O advento do disk-drive para o MSX 
trouxe a possibilidade de usarmos oil- 
tras linguagens que nao o BASIC resi- 
dente. 

Porquc a linguagem PASCAL?. Por- 
quc a ela estao associados conceitos 
muito iniporiantes e tecnicas de pro- 
gramed) estruturada que sao aceitos 
como boas praticas no desenvolvimen- 
to de programas. 

Por isso c cada vcz maior o numero 
de computadores que suportam esta 
linguagem, difundindo ainda niais o 
seu uso. 

No caso do MSX, teremos neste cur- 
so um apendice, em que serao explica- 
dos os comandos do turbo-pascal. 

Turbo Pascal e um software-produ- 
to da Bosland International, e pode ser 
considerado o padrao nas maquinas 
PC, e agora se definira com os MSX. 

Tratando-se de uma linguagem avan- 
cada, precLsamos conhecer antes lin- 
guagem avancada. precisamos conhe- 
cer antes, os fundamehtos da progra- 
macao cstaiturada: 

— Temos em programacao tres estru- 
turas basicas: 

— Estaitura scqiicncial 

— Estaitura Rcpetitiva 

— Estaitura dc Controle ou Condicio- 
nal 

Ao comertamos a resolver um pro- 
blema atraves de um programa, tor- 
na-se necessario montar um alogariti- 
mo, em que estas estruturas estejam 
presentes. Para isto usamos comandos, 
preferivelmente em portugucs (estrutu- 
rado) para que isto seja a primeira idcia 
de solucao do problema. 

Vejamos o Seguinte Problema: 

Dados dois niimeros inteiros positivos 

A c B, calcular o modulo de A — B: 

— Programa Solucao 

— Ijer A e B 

— Se A < B 

Entao Calcular C = A - B 
Senao Calcular C = B - A 

— Imprimir C 

— Fim programa Solucao 

No exemplo acima, usamos as estru- 
turas: 



— Se (afirmativa) 

Entao - 

Senao 

Que e uma estaitura condicional. 

l£r, Imprimir c calcular sao estruturas 

seqiienciais. 

Um exemplo de estaitura rcpetitiva c 

a enquanto-. 

Enquanto A < B 

Calcule A = A - 1 

Fim — enquanto 

Supondo que A = 5eB = 3 que 
acontcccra?. A operacao do programa 
se dara entre o comando enquanto e o 
fim — enquanto, e a cada passagem, A 
passara a valer 4, depois 3- Quando A 
= 3 sera falsa a afirmativa sera falsa a 
afinnativa A B, c a operacao sera desvia- 
da para o fim — enquanto. 

Existcm varios outros comandos es- 
laiturados, cuja scmclhanca com co- 
mandos PASCAl. e muito grandc. Por is- 
so insistimos nesta apresencicao. 



Formato de um Programa PASCAL 

Em PASCAL nao cxistc o conceito de li- 
nha. Uma dcclaraga() ou comando po- 
de iniciar em uma linha do tcxto c in- 
vadir as proximas linhas. 

O conceito de linha e utilizado em 
algumas linguagens de programacao, 
como o BASIC e o FORTRAN, para de- 
limitar o fim de uma declaraao ou de 
um comando. Em PASCAL isto e feito 
utilizando o ";" (ponto e virgula). 

No cabecalho de um j^rograma RAS- 
CAL aparcce a palavra reservada Pro- 
gram seguida do nomc de uma Usui de 
nomes de arquivos cxtintos dclimitada 
[•>or abre e fecha parcntcscs e do deli- 
mitador ";". 
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Na lista, os nomes dos arquivos sao 
scparados entre si por virgulas. 
Exemplo: Program Procura (input, out- 
put); 

O corpo de um Programa PASCAL 
esta dividido em seis areas, onde so- 
mente a ultima e obrigatoria. Em outras 
palavras as outras podem ser omitidas 
se nao forem neccssarias ao programa. 
Sao elas: 

— Area de definicao de rotulos 

— Area de definicao de constantes 

— Area de definicao de tipos 

— Area de definicao de variaveis 

— Area de procedimentos e funcocs 

— Area de comandos 

— Area de definicao de rotulos 
Inicia com a palavra label seguida de 
uma lista de rotulos separados entre si 
por virgulas, e finalizada pelo operador 

Os rotulos em PASCAL sao numeri- 
cos e servem para assinalar um deter- 
minado ponto ao qual devamos retor- 
nar. 

Exemplo: Label 
1, 

32, 
199; 
Um rotulo e antccidido do coman- 
do go to. 

— Area de definicao de constantes 
Comeca com a palavra const c ser- 
ve para darmos nomes as constantes 
utilizadas no programa. 

Exemplo: const 

zero = ; 
Pi = 31416 ; 

— Area de definicao de tipos 
Inicia com a palavra type e serve pa- 
ra associarmos nomes a tipos definidos 
a partir de outros ja existentes. 

Os tipos de variaveis cm PASCAL di- 
videm-se em simples c cstmturados 

Os tipos simples podem ser: 
rcais (real) 

inteiros (integer) 

caractere (char) 

logico (boolean) 



Podemos usar nesta area uma defi- 
nicao de tipos baseada em outro tipo 
de variaveis: 

Exemplo: type 
Dia = (Seg., Ten, Qua., Qui., Sex., Sab, 
Dom.,); 

LJtil = Seg... Sex; 
Nota = 0... 10; 
Letra = 'A"..."Z" 

Area de definigao de variaveis; 
Exemplo: var 

xy: real; 
IJ: integer; 
Cont: 1...100 
Cor: (Prcta, Branca); 

Note-se que a definicao de variavel 
COR usamos o mesmo procedimento 
que na area type-. 

Area de definicao de procedimentos 
e funcdes: 

Nesta area sao definidas os 
procedimentos c funcdes utilizadas 
pelo programa. Os procedimentos ou 
rotinas iniciam com a palavra reservada 
procedure c as funcdes com a palavra 
function. Tanto os procedimentos 
quanto as funcoes devem possuir as seti 
areas de que estamos tratando (como se 
fossem programas). Repare as 
vantagens sobre uma rotina Basic ao 
chamar um procedure, basta 
referenciar seu nome e ele sera 
cxecutado. No caso de uma funcao, e 
possivel passar as variaveis, ou seja: se 
voce construir uma rotina para 
ordenagao alfabetica, utilizando 
internamente as variaveis I e J, podera 
usa-la em qualquer programa alterando 
as variaveis de entrada para A e B ou D 
c E, a vontade. 

Mais tarde detalharemos melhor este 
aspecto. 

Area de comandos: 

Comeca com a palavra Begin e 
termina com a palavra reservada End. 
Nesta area estao realmente os 
comandos que formam o alogaritmo 
da solucao. Como regra gcral, o ponto 
e virgula e sempre utilizado ao fim de 
um comando. Vamos agora estudar 
com detalhes os comandos do Pascal: 



Comando de atribuicao 

Significado: atribui a variavel que 
esta a esquerda o valor a direita. 
Exemplo: 
Ind: = 5 

Preco: = 10.000 *Q 
Total: = Total + Preco 

A direita pode existir uma expressao 
ou formula que usa os seguintes 
operadores: Operadores 

multiplicadores 
"*" "/" "div" "mod" "and" 
div — divisao inteira 
mod — resto de divisao 
operadores aditivos 
" + " "' "or" 

Alem destes existem operadores que 
possucm precedencia inferior aos 
aditivos e que produzem resultados do 
tipo logico: " = " " > < " ">""<= " 
" > " " > = ". A hierarquia das operacoes 
e a comum em matematica, com a 
possibilidade de alteracao pelo uso de 
parentdsis. Exemplo: Este programa 
recebe dois numeros e fornece a soma 
e o produto deles. 

Program simples (input, output); 
var 

X, YSoma, Produto: real; 
begin 
read (x, y); 
Soma: = x + y; 
Produto: = x*y; 

Writlen ("Soma = ", Soma, "Produto = 
", Produto); 
end 

Comandos condicionais: 
if — then — else 

Seu formato e o seguinte: 
if (condicao) 
then (comando 1) 
else (comando 2) 
ou if (condicao) then (comando) 
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E o equivalentc do portugues 
estrutura se.... entao .... senao 
Exemplo: Imprimir o maior dc dois 
numeros. 

Program Maior (input, output); 
var 

x, y: real; 
begin 
read (x, y); 
ifx< = y 

Then writeln ("Maior = ", x) 
else writeln ("Maior = " y) 
end. 

Comandos rcpetitivos 
while-do e repeat-until 
While-do seria o nosso equivalentc a 
enquanto ....fun 
Enquanto 

Enquanto a eondicao for verdadeira, 
;i opcracao Se desviar.i ate o fim e se 
repetira quantas vev.es for necessario. 
Exemplo: While (eondicao) 
do 

begin 

comando 1 
comando 2 
end 

|a a estrutura repeat-until repete os 
comandos at6 que a eondicao seja 
verdadeira. 
Exemplo: 

Programs Fatorial (input, output) 
var 

Num. Eat. I: integer; 
begin 

read (num); 
I: = I; 
Fat: = 1; 
rcapt 

Fal: = Eat*l; 
I;= 1 + 1 
until 1 > Num 



writlen ("Fatorial", Fat) 
end 

Este programa calcula o fatorial de 
um inteiro Num:. Veja a semelhanca 
com o algoritmo montado em 
portugues estruturado: 

Programa Fatorial 
ler Num 
Calcular I = 1 
Calcular Fat = 1 
Repita 

Calcular Fat = Fat* I 
Calcular 1=1 + 1 

Ate que I > Num 

Fscrever ("Fatorial = ", Fatorial) 

fim programa fatorial 

( a imando Case: 

E uma estrutura conciteional com 
muitas saidas. Sua forma 6 

Caso (eondicao) 
11: comando 1 
12: comando 2 
15: comando 5 

Caso a eondicao for igual a 11, sera 
executado o comando I, caso igual 12, 

< > c« >mando 2 e assim sucessivamente. 
Em Pascal, leremos. 

Case (eondicao) 
II: comando I 
12: comando 2 
13: comando 3 
end 
Comandos com repeticao automatica: 

() comando for-io assemelha-se 
muito ao do FORTRAN e ao For-Next, 
do Basic: 

loi < variavel > : = < exp 1 > to < exp 

2> 

do 

< comando > 



A variavel ira assumir valores de exp 
1 ate exp 2 e a cada iteracao (repeticao) 
sera executado o comando. Para o co- 
mando repetitivo for-downto, os valo- 
res assumidos pcla variavel serao de- 
crcscentcs: 



for< variavel > 

to < exp 1 > ; 

do 

< comando > 



= < exp 2 > down- 



Vejamos um programa usando o co- 
mando for-to: 

Program Fatorial 

var 

Num, fat, Einteger; 

begin 

read (Num); 

Fat: = l 

for I: = 1 to Num do Fat: = Fat * I; 

Writeln ("Fatorial =", Fat) 
end 

Por todo o exposto ate agora vcmos 
grande semelhanca entre os algoritmos 
em linguagem natural e os comandos 
do Pascal. 

Proximas aulas: 

Neste primeiro segmento do curso 
tie Pascal, o objetivo foi aprcsentar os 
comandos principals e sua estrutura 
nesta linguagem, sem nos detemios em 
maiores detalhes. Nos proximos seg- 
mentos, serao abordados os tipos, de 
variaveis. funcoes, procedures, arrays, 
etc, mais programas — exemplos que 
tern como objetivo possibilitar a mon- 
Uigem de um pequeno sistema em Tur 
bo Pascal em seu MSX, ao fim deste cur- 
so. 

Aguardcm os proximos modulos. 
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E TIRAREMOS O SEU TAMBEM. 

A Panacom esta langando dois programas muito especiais, 
O primeiro e ICONIA, um adventure premiado nos Estados 
Unidos pela revista THE RAINBOW e cujos perigos tiraram^ 
sono dos jufzes do concurso. O segundo programa e \ ' 
FRACTA, que segue a mesma concepgao avangada de 
ICONIA, sendo ainda mais extenso e apresentando um 
enredo fascinante. Sao dois programas totalmente graficos, 
coloridos, sonorizados, e controlados por um sistema que e 
sucesso: icones e menus. Pega hoje mesmo sua aventura de 
categoria internacional! 
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Ceriamente o leitor ja leve contato com 
algum aplicativo desenvolvido sob 
CP/M. 

Estc slstema operacional, muito uti- 
lizado no niundo inteiro para descnvol- 
vimento de software profissional, tor- 
nou-.se praticamente padrao ncstas apli- 
cacoes. 

Sob ambicntc CP/M podem-se rodar 
linguagens como FORTRAN, PASCAL, 
COBOL, etc., o que torna o dcsenvol- 
vimento dos sistemas mais rapido, ba- 
rato c seguro do que com o tradicional 
c limitado, (para estes usos), BASIC. 

Sob o mesmo ambiente CP/M surge 
lambem a opcao de rodar o software 
gerenciador de baiicos de dados cha- 
niado dBase II. 

Antes de iniciarmos nosso curso, va- 
mos a alguns conceitos basicos, uteis 
para os iniciantes na area: 

• 
Sistema Operacional. 
E o responsavel pela execugao dos co- 
mandos basicos de uma maquina e pe- 
lo tratamento das opcracocs de entra- 
da e safda em especial a lcitura c a gra- 
vacao em disco. 

( ) sistema operacional e carregado 
para a memoria do equipamento por 
ocasiao do acionamento deste pcrma- 
necendo residence ate o desligamento. 

O estado de prontidao do CP/M e 
dcterminado por uma letra e o sinal. 

Banco de Dados. 

E uma colecao organizada de informa- 
cao apresentada para servir a um deter- 
minado proposito. 

Um dos exemplos mais familiares de 
banco de dados e a lista telefonica. Es- 
te banco de dados con tern nomes, en- 
derecos e telefones de indivfduos, em- 
presas e instituicoes. Os enderccos e te- 
lefones tern pequeno valor por si mes- 
mo. Eles sao liteis quando relacionados 
a um nome, o que reforca a ideia de co- 
/ccao organizida. 



Sistema Gerenciador de Banco de Dados 
(SGBD) ou Data Base Managment System. 

E uma linguagem de programacao que 
pane da criacao de uma estrutura de da- 
dos como base para utilizacao de seus 
comandos. 

O usuario define a estrutura de da- 
dos a ser utilizada e a partir dai conta 
com uma serie de comandos que per- 
milem: 

• listar 

• adicionar 

• deletar 

• alterar o seu contcudo 

Esta estrutura de dados consta de: 
arquivos, compostos de rcgistros, que 
por sua vcz sao compostos de aimpus. 

A funcao de um SGBD e proporcio- 
nar meios de gerenciar esta massa de in- 
formagocs. 

Arquivo 

E o lugar onde serao armazenados os 
dados que serao necessarios posterior- 
mente. 

Um arquivo e composto de registro. 

Registro. 

E o conjunto de informact>es agrupa- 
das por um mesmo vinculo, da melhor 
maneira possfvel, para utilizacao em 
aplica^oes determinadas. 

Um registro e composto de campos. 

CAMPO, E cada uma das informacocs 
a serem agrupadas num registro. 

Um campo e composto por bytes. 
BYTE. E a unidade de informacao. A 
cada byte corresponde um caractere 
(letra, niimero ou caractere especial) 

Um byte e composto de 8 bits (uni- 
dade minima de informacao = ou 1 
em binario). 

Modelos de Banco de Dados. 

(Modelo I Iierarquico) Baseia-se no con- 
teiido de que uma determinada classe 
de aplicacoes permite acesso a outras, 
em nfveis mais baixo. Exemplo. Scja o 
aickLstramento de funcionarios de uma 
empresa: 
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Divisao Organizacional 
Funcionarios Area de Atuacao Projeto 
Filhos Experiencia professional 

Se quisermos informacoes sobre os 
filhos dos mncionarios, bastara acessar 
O arquivo de funcionarios c depois ou- 
tro acesso, aos filhos de um funciona- 
rioX. 

O modelo hicrarquico e muito uti- 
lizado em grandes compuiadorcs. 

Modelo Relacional. 

E a base do sistema dBase II, das quais 
se obtem as informacoes desejadas. 
Exemplo: um arquivo com nome, en- 
dereco c telefone de um cliente. 
Poderfamos montar uma labcla tipo: 
Nome Endereco 

Luis Rua XYZ 70 

Joao Rua Joao 80 

ou outni: 

Nome Telefone 

Luis 2558020 

Joao 3578077 

oil: 

Endereco Telefone 

Rua XYZ 70 2558020 

Existe nestc modelo de dados uma 
Klaqa.0 forte cntre OS elementos da ta- 
belj: acesso as informacoes e simples- 



mente o acesso as tabelas. 
Rodando o dBase II 
O que o leitor precisa para rodar o sis- 
tema dBase II? 

Um computador com possibilidade 
de rodar CP/M como por exemplo: 
Apple com placa CP/M e 80 colunas 
TRS 80 com placas de expansao para 
CP/M 
MSX com placa CP/M, etc... 

O sistema CP/M exige pelo menos 
64 Kbytes de memoria para rodar. 

Voce neccssita tambem do software 
dBase II original com documentacao. 

Se voce possui estas fernunentas po- 
de testar ludo que sera explcicado ncste 
curso. 

Iniciando a Operacao 

Coloque o disco com o software dBa- 
se II no drive, e digite a dBASE ou a 
dBASE II 

O gerenciador sera carregado para a 
memoria do equipamento. permitindo 
assim a utili/acao dc seus comandos. 

Apos a carga do sistema, dBASE per- 
guntara: 

ENTER DATE AS MM/DD/YY or RE- 
TURN FOR NONE: 

O usuario devera teclar RE- 
Tl RN/ENTER ou indicar a data para o 



sistema no formato MM/DD/YY. 

A panir daf poderemos trabalhar em 
dois modos: 

MODO INTERATIVO cm que o usua- 
rio apenas usa comandos padroniza- 
dos, para trabalhos com outros arqui- 
vos e criar relalorios. 

O Modo Programado em que sao 
usados comandos a linguagem dBase 
II, o que permitc construir sistemas e 
programas c grava-los em disco. 

Como supomos o leitor tenha al- 
gum contato com linguagens dc pro- 
gramacao como o BASIC e achamos 
mais facil initial com os comandos dc 
progrma^ao. 

Antes dc escrever um programa, de- 
ve-se detcrminar a configuracao (para- 
meiros do sistema), a serem usados. 
Isto e fcito com: 
SET (parametro ON/OFF) 
ex: SET BELL ON 

Faz emitir "beep" cada vez que fo- 
rem digitados dados nao compativeis 
com o comando. 

Ha uma lista dc parametros em seu 
manual, porem podemos mostrar os 
mais importantes: 

INTENSITY ON — operacoes em tela 
cheia aparccerao 
com dupla inten- 




JOGOS 

FITA: CZ» 100.00 DISCO: CZS 150,00 

(D) : P0DE SEP. EM DISCO 

GROGS REVENGE ID) - baseado no q jaonrbo 
SUPER SOCCER ID) - rove |0go de loolba 
TIME PILOT (D)- av ao em varasepocas 
CIRCUS CHARIES I'D) - oivirta se no G'to 
STOP THE EXPRESS (01 - jven: ira sobre c Ire-' 
HAMBO ID) - baseado no ' ime RAWBO II 
GUNFRIGHT (01 - celho oeste em 3D. C-'alicos faniass cos 
NORTH SEA HELICOPTER (D) - s mu agac dc- helicop'.ero 
R0LLER6AL lOI — logo cc p<noal Co- «es 'Bses 
SLPER R0B0 iDi - ajjee o loDc/mio em sua mtssao 
CONGO BONGO (D) ~ prolciase- qos oOstaCU os 
CRAZV TRAIN ID) - naocexeofemoarar SejaraDIQfl 
CHOROO ID) - ccrst'La os catrmnos se- ser ceslrudo 
FIRE RESCUE ID) - salve lodos os ratinftos 
EXERI0N (D) - icgu com r,aves espacia s igjal ao fiipc 
NINJA ID) — omonotanie avertura Torrese l~i rmja 
knightmare(Di um dosultfflos lanc^mentosoa 

KUNAMi 

raind ON B. BAT (01 - combale cot hekopWo 
SENJY0 (01 - si~uiacao dc combate com lanq jes 
KYZOLOGiDi togcdeestraregiaeacaoraoica i 
BACK TO THE FUTURE (0) - naseaoo ro li -e 
STARWARS (01 e^ocoranlu oaialfa espaciai 
HYPER RALLYE ID) - SfflU acac dc CC'l da Vanos 
in .'< is 

ELEVATOR ACTION (0) - oegje locas as ma as c escape 
FLIGHT DECK |D| - mgo oe eslravgia Te as d gild uadas 
CH-05 - deteica seu ler'ljr o -its Ml "■ • im gns 
KUNG FU MASTER (D) - SfflU ocue di uncs marc all 
GALAXIA — deslrja as naves inm gas no espaej) 
GYRUS ADVENTURE - Iido oeretra:o» com ne iccotcro 
CHUCKIE EGG - ptgue lodos os oves e ij|a das aves 
PUNCHI - sa.ve cs oebes EtatO -:r- voz w ntel ?aca 
F-16 ID) — SIntuladOf Cfl voo cof, combale 
KNIGHT LORE ID) avSOtura 1 .-Mo em 3D 
NIGHT SHADE (Ol - -.irdo .:i ni.igia em 3D 



MSX 



EXPERT E HOTBiT 



ALIEN 8 |D) — teani'ne os aslre^autas em 3D 

SORCERY - save oscmdas apnsior.ados 

BATTLE FOR MIDWAY (Dl - v.arga^ne gialico 

ELID0N — acne as floras magicas 

MASTER OF LAMPS - awniura nas 1001 roiles 

JUMP JET (D| — combale actec n^m Sea Harrier 

BLAGGER - recolha os abielos 

jet SET WILLY II - aoague Looas as Kies 

60XE (D) — luta com van os adversaries 

8UCK ROGERS ID) - pilolc a navt de BuW 

CHAMPIONS NATIONAL - cwr da dc cavalos 

ERIC & FLOATERS |D) - male OS monslios 

ZAXXON (Dl - la^oso logo em sta versao or ginal 

WAR HE*D (01 - c cmbait- espaciai var as (ascs 

CHILLER ID) - baseadono CUP' de Michael Jackson 

HOLE IN ONE (Ol — jogo oe goi'e com vanas rases 

LODE RUNNER (D) - pegje os tescJlcs e luia 

ULTRA CHESS (D) - ultima versao oo XA0RE1 

FLAPPY (D) — derrube pedras sob^e os monslrcs 

THE WRECK — ache os tanaue* de V 

THE G00NIES - enconrrf: seus aligns 

MANIC MINER - recolha OS objelos 

KING S VALLEY - percorra a oiraonde 

A VIEW TO A KILL (D) -- baseado no lilre de 007 

Mr DO ID) - deslrua OS ronstros 

BOUDERDASH - pcguecsdiamaitesrascavernas 

WARR0ID (01 - e^oc oh3nle logo Co- rob6s 

FITA: CZS 250.00 / DISCO: CZJ 300.00 

TASW0R0 ID) - drocessaoor oe :catos 6i co uras 
PSS JDj — assemh en'oisasse-b er 
MAGIC SET ID) - suoer adiw de :a»acleres 
SPRITE MACHINE (01 - edilor de SPRITES 
FORTH comprador FORTH 
pascal - eomoilaoornASCAl 
C0MPILA00R BASIC comp lacor BASIC 

UTILITARIOSAPLICATIV0S (DISC0I CZt 800,00 

TLRB0 PASCAL contp lacor prollss'oral 
BOS C - comp i,)ooi dc I ivguapm C 
BASC0M compilador9ASIC(MBASICI 



Envie seu oeoido a JVA MICR0C0MPUTAD0RES LTDA, 

Rua Mayrink Ve>ga 32-'SI| - Rio de Janeiro - RJ - CEP 20090 - Tel. (021) 253-9291. 

acompanhado de cfieoue nominal e cruzado no respective vaior. 



DE A SEU MICRO 

OMELHOR 

TRATAMENTO 




Cuidamos do seu 
equipamento com uma 
equipe tecnica altamente 
especializada e da sua 
tranquilidade com um 
atendimento de alto nivel e 
honestidade absoluta. No Rio 
de Janeiro, s6 a MODULAR- 
SYSTEMS lhe oferece estas 
vantagens. 

• Check-up gratis 

• Rapidez no atendimento 

• Transport e ida e volta 

• Relat6rio detalhado de 



servicos 

Honestidade absoluta 
Nacionais ou importados 



modular 




ggsystems 

Rua Almirante Cochrane, 202 
^Jijuca -Tel. (PBX) 284-6087 
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sidade, ou ao in- 

verso em alguns 

monitores. 

INTENSIT OFF — Nao aparecerao 

com dupla intcnsi- 

dade 

PRINT ON — safdas reproduzidas na 

impressora 
PRINT OFF — bloqueada a impresso- 
ra 
SCREEN ON — Sao permitidas as 
operacoes de. tela 
cheia 
SCREEN OFF — nao sao permitidas 
operacoes de tela 
chcia 
TALK ON — OS rcsultados dos co- 
mandos sao apresenta- 
dos na tela 
TALK OFF — o comando e executa- 
do, mas nao apresenta o 
resultado em tela. 
Urn programa a ser executado e in- 
troduzido ataves da criacao de um ar- 
quivo de comandos por um editor de 
textos, onde o programador introduz 
comando a comando. 

Na execucao, os comandos-serao 
processados um a um na sequencia de 
programacao. O nome do programa se- 
ra o nome do arquivo de comandos e 
dcvcra obdecer aos criterios do sistema 
operacional CP/M. 

O editor de textos do dBASE e o co- 
mando MODIFY COMMAND. 
Exemplo: MODI COMM A: PROGOl 
Abre o arquivo de programas chama- 
do PROGO, no drive A. 

A partir daf podem ser inseridas as 
instrucoes, usando-se para edita-las a te- 
cla CTL seguida de uma outra. 
CTL-N insere uma linha 
CTL-A computa letra maiiiscula/minus- 
cula 

CTL-X avanca uma linha 
CTL-S retrocede uma posicao a esquer- 
da 

CTL-D avanca uma posigao a direita 
CTL-E 

retrocede uma linha 
CTL-R 

CTL-T deleta uma linha 
CTLW 

sai do MODI COMM. gravando 
o conteudo introduzido no arquivo 
CTL-O 

CTL-Q sai do MODI COMM sem gravar 
arquivo 



CTLY deleta todos os caracteres da li- 
nha a direita no cursor 
CTL-C avanca meia paginas do arquivo 
CTL-V comuta a insercao ou nao de ca- 
racteres sob o cursos 
CTL-G deleta o caracter sob o cursos 

O dBASE comandos estruturados, 
portanto nao existem numeros de li- 
nha. 

As cstruturas de programacao pos- 
sfveis, sao: 

SE condicao ENTAO faca comandos 

FIM 
ou SE condicao ENTAO faca coman- 
dos 1 

SENAO faca coman- 
dos 2 

FIM 

FAgA ENQUANTO condicoes co- 
mandos 
FIM 
FACA 

CASO condicao 1 
comandos 2 
condicao 2 CASO 
condicao 2 

CASONENHUMA 

comandos 

FIM — CASO 

Estas estruturas de programacao, 
cxistentes em varias outras Iinguagcns 
em dBase II sao comandos: 
IF CAMP 1 = 100. OR. CAMP = 90 
LOOP 
ELSE 

STORE O TO PREC 
END IF 

Estrutura cm LOOP: DO WHILE 
STORE 1 TO CONT 
DO WHILE CONT 10 

@ 3,2 SAY TESTANDO LOOP" 

@ 4,10 SAY CONT 



STORES CONT + 1 TO 

END DO 

Obs: Um comando LOOP dentro de 

um DO WHILE forca o reinicio do DO 

WHILE 

Obs: O comando 

@ 3,2 SAY TESTANDO LOOP' 
Substitui o comandos PRINT, ou scja, 
que dizer: 

"Imprima na linha 3, coluna 2, 
"TESTANDO IOOP" 
Estrutura CASE 
DO CASE 

(ASE OPT = "1". OR.OPT = 
'2' DO PROG1 

CASE OPT = '3'DOPROG3 
ENDE CASE 

No exemplo caso OPT = Toil OPT 
= '2' o dBASE chamara para execucao 
(RUN) o programa PROG1. 

A proposito, e bom lembrar que o 
numero maximo de programas enca- 
deados ou rotinas c de 16. 
PROG 1 PROG2 — PROG16. 

Ao final de cada programa, dcvc ha- 
ver um RETURN. 

Dentro de um programa nao ha ncccs- 
sidade de ao elaborar uma tela, posicio- 
nar com X, Y SAY cada tftulo que apa- 
recera em tela. 

Basta usar o comando TEXT 
TEXT 

RELATORIO DBASE II 

PRODUZIDO POR 

END TEXT 

No caso de voce quercr escrever um 
menu, ha facilidadc adicionais como 
GET e READ: 
Vfejamos: 

@ 3,18 SAY 'DESCRigAO' = GET 
DESC 

@ 11,2 SAY TIPO = GET TIP 
@ 13,2 SAY 'PREOO' = GET PREgo 
PICTURE '999.9' 
READ 
DO CASE 

CASE TIP = 'AT 

STORE PREgo * 1.10 TO 
PREgO 2 

CASE TIP = A2" 

STORE PREgO * 1.20 TO 
PREgO 2 

CASE TIP = A3' 

STORE PREgO * 1.30 TO 
PREgO 2 
OTHERWISE 

STORE PREgO TO PREgO 2 
endc case 




SO EQUIPAMENTOS PROFISSIONASS PODEMARMAZENAR 
JUDO ISSO.O HOTBIT DA SHARP TAMBEM PODE 



A Sharp estd lancando o HB-6000 Disk Drive e o H B-360 
Dual Disk Drive Controller para computadores padrao C53 . 
Com eles seu HOTBIT se torna definitivamente profissional. 

• Profissional no desempenho: o uso do disquete permite um 
acesso imediato aos dados, arquivos e programas. 

• Profissional na capacidade: podendo armazenarate 720Kb. 
Com o Disk Drive, voce pode ter acesso a dados que foram 
produzidos no IBM PC*, pela compatibilidade de arquivos 
existentes entre o HB-DOS e o MS-DOS. 



• Profissional nos programas: o Disk Drive, com o HB-MCP, toma 
o HOTBIT compati'vel com o CP/M 2.2, o que permite acesso 
a maior biblioteca de software profissional do mundo. 

Como voce ve o HOTBIT deu um passo decisivo para enfren- 
tar qualquer desafio profissional. Mas hd ainda muito mais a ser 
visto. Passe no seu revendedor e conheca de perto o Disk Drive 
HOTBIT e todas as vantagens que ele pode trazer para voo§ e seu 
computador pessoal. 



HWTBIT 




iFC in 



Obs: Como voce ja deve ter pcrccbido, 
a operacao de atribuicao (LET cm BA- 
SIC) e feila atraves de STORE (variavel 
ou valor 1) TO (Variavel 2). 

Rcpare que para construirmos O me- 
nu, utilizamos SAY nas posicoes indica- 
das, seguido de um GET. O GET indi- 
ca que na execucao do programa, o 
cursor ira sc posicionar naquela posi- 
cao. 

O READ ao final dos GET posicio- 
nados, indica que scrao lidos os valo- 
rem dos GET, e atribufdos as variavcis 
respectivas, no caso DESC, TIP e PRE- 

go. 

A clausula PICTURE 999.99 e uma 
mascara cjue indica que valor a scr di- 
gitado naquela posicao devera scr nu- 
merico com tres algarismos, mais duas 
casas decimals. 
Outros Eormatos: 

PICTURE 'XXXX' limita e permite a di- 
gitacao de qualquer caractere. 
PICTURE " ou PICTURE 999' sao 
idenmticos 

PICTURE AAA' limita e permite a digi- 
tacao de lelras, somente 

O comando @ SAY tambem pode 
scr usado com a mascara USING. 
Exemplo; @ 3, 4 SAY USING '999' 

Neste caso, a mascara tera a mesma 
funcao que tinha no caso da PICTURE. 

Outras fbrmas de Entradas 
ACCEPT — o comando do ACCEPT 
permite ao usuario solicitar a digitacao 
de uma variavel caractere, com poste- 
rior transferencia para a membria, sem 
ser informado das coordenadas X, Y 
como no GET posicionando. 



Exemplo: 

ACCEPT 'DIGITE SEU CODIGO'' 
TO CODSERV 

Ira fazer a string aparecer na tela DI- 
GITE SEU CODIGO, e ser atribufda a 
variavel em membria, CODSERV uma 
string a ser digitada. 
1NPI IT O comando INPUT permite .so- 
licitar a digitacao de uma variavel carac- 
ter numericu ou logiai com posterior 
transfcrencia para a membria. 
Ex. INPUT 'DIGITE SEU OODIGO' 
TO CODSERV 

Fara com que voce possa atribuir a 
CODSERV um numero, uma string ou 
um valor Ibgico. 

Interrupcao Momcntanea de um pro- 

gnuna — WAIT 

O comando WAIT permite ao usuario 

interromper momentancamente, um 

programa ate que o opcrador tecle 

qualquer caractere. 

Ex. WAIT 

WAIT TO CP1 
Interrompera o programa, c aguar- 
dani por um valor que sera atribufdo a 
variavel CP1. 

Comentarios/Documentacao 
O caractere * ou O comando NOTE 
possibilitam a introducao de linbas nao 
executaveis no programa. 

O comando REMARK possibilita a 
apresentacao do comentario que o se- 
gue no depositfvo de safda. 
Opcnidorcs admitidos no dBase II 
Aritmeticos + Adicao 
- Subiracao 
x multiplicacao 
/ di\isao 



caracteres + Concatenacao 

- de strings 
Exemplo 'SOLUCA' + 'O' 

SOLUgAO 
caracteres + (Concatenacao 

- dc strings 
Exemplo 'SOLUCA' + O' 

SOLUgAO 
logicos ( ) Agrupamento de expres- 
sbes 

< Menor que 

< = Menor ou igual 

> Maior que 

> = Maior ou igual 
= Igual 

< > Diferente 
Contido em 

OR. ou booleano 
.AND. E booleano 
.NOT Nao booleano 



Acabamos de mostrar alguns dos 
principais comandos e instrucbes do 
dBASE programado, assim como co- 
mandos para operacSo do sistema. Na 
prbxima parte, seguiremos com co- 
mandos de manipulacao de arqulvos, 
usados dentro de um programa. O ob- 
jetivo e construirmos um sistema de 
conttole de estoque ao final do curso, 
da maneira mais rapicki possivel para o 
leitor, mesmo que nao tenha expe- 
riencia cm sistema deste tipo. Com is- 
to mostraremos cunbem a flexibilida- 
de de um software tipo. Com isto 
mstrarcmos tambem a flexibilidade de 
um software que marcou epoca na po- 
gramacao de computadores. Ate a pr6- 
xima! 



COM ESTES PROGRAM AS 
)/0CE COMRSA EM P0RW6UES! 

Brasileiros, tecnologia avancada, alta performance e com 
experiencia de tres anos. Assim e o nosso software. 



.*»«m~B-*0*'m- 



N6s fazemos software, 
* os outros fazem vitamina 




O EDITOR e um sislema para a criacao 
e edicao de programas adventures. Ele 
permite a manipulacao de todos os ele- 
mentosdo jogo, taiscomoobjetos, ver- 
bos, mensagens, posicoes, funcoes, etc. 
A programacao do jogo e exatamente 
igual para todas as linhas de equipa- 
mentos e os programas criados sao com- 
pativeis a nivel de estrutura funcional. 

MSX (cassete) CzS 800,00 
disponivel tambem para CP 500 e 
TK90X 




O AMAZONIA e uma aventura emocio- 
nante onde voce estord envolvido nas 
mais incriveis siluacoes de perigo. En- 
contre a saida e sobreviva... 
Voce jamais esquecera essa aventura. 



MSX (cassete) CzS 190,00 
disponivel tambem para CP500 e 
TK90X 



utilitario de cripiaQ^ D 
pon JiiliDVellDsaDIS.! 



Proleja seus programas originais, fazen- 
do copias de seguranca. Com o BKP vo- 
ce duplica programas com ou sem 
HEADER, em vdrias velocidades e veri- 
fica seus parametros. 

MSX (cassete) CzS 500,00 



cheque nominal a 

JVAMICROCOMPUTADORESITDA. 

JVA " Movnn k Ve; 9 c »C£° 
Ri0 do Janeiro -RJ- 20090 

Tel, (021) 253-9291 

CREDENCIAfAOSREVENDEDORES 




PROGRAMAS PARA MSX 

JOGOS: 

Hot Shoe - Hunch Back - Dog Fighter- Polar Star -Cannon Fighter 
Spooks & Ladders - Star Avenger ■ Shadow of the Bear 
Shark Hunter - Binary Land ■ Le Mans - Norseman - Classic Adventure 
Pyramid Warp - Cave Flight - Bumerangue/Maze UP ■ Buzz OFF - 
Disc Warrior ■ Lazy Jones - Boulder Dash ■ OH Mummy 

APLICATIVOS: 

Curso de Basic - Calcomp (calculadora cientifico-financeira) 
Topografia (eng. civil) - Imposto de Renda ■ Controle de Estoque - 
Mala Direta ■ Contas a Pagar e Fteceber ■ Orgamento Domestico 
Orgamento de Obras - Viga continua. 



EnZE/OFI: 




ENGESOFT TECNOLOGIA NA INFORMATICA LTDA. 
04501 - Av. Republics do Libano, 2.073 - Tel.: (011) 549-9788 
Caixa Postal 42055 - Sao Paulo - SP 

Dislribuiqao nacional nos magazines e lojas especializadas. 



Vitamii 







Chegou uma autentica vitamina de inteligen- 
cia para seu MSX ou TK-90X: a vitamina Dis- 
prosoft. Sao mais de 1 50 programas inedi- 
tos, de facil digestao para voce e seu micro. 

Vitamina bem brasileira, com os programas 
editados em portugues, que proporcionam 
incrfveis emocdes. 

Ingredientes: jogos animados e inteligentes, 
programas com aplicacoes comerciais, pro- 
fissionais, educacionais e utilitarias. 



MSX e TK-90X da Disprosoft: os programas 
mais saudaveis do mercado. Nas melhores 
lojas, sem contra-indicacoes. 

mrmw ST n W 

SEMPRE UM GRANDE PROGRAMA. 

TROPIC Informatics Uda. 

Caixa Postal 1 6441 - SP - CEP 02599 



DISPONIVEL TAMBEM EM CARTUCHOS. 



